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'.0 GENERAL INFORMATION 


1.1 PROGRAM ABSTRACT 


THIS PROGRAM CONTAINS A FUNCTION TEST OPTION AND A LOGIC TEST 
OPTION. A USER HAY SELECT TO RUN THE FUNCTION TEST ONLY. LOGIC 
TEST ONLY OR BOTH. THE DIAGNOSTIC WILL DEFAULT TO RUN THE LOGIC 
TEST ONLY. THE FUNCTION TEST WILL PERFORM A FUNCTIONAL EVALUATION 
OF THE DEVICE. IT WILL VERIFY THAT THE DRIVES CAN SEEK. THAT 
DATA CAN BE WRITTEN AND READ AND THAT DRIVE STATUS IS CORRECT. 

THE LOGIC TEST WILL ANALYZE DEVICE FAILURES. REPORT FAILING 
FIELD REPLACEABLE UNITS AND PROVIDE EXTENSIVE INFORMATION ON 
THE NATURE OF THE ERROR. 


1.2 SYSTEM REQUIREMENTS 


1.2.1 HARDWARE REQUIREMENTS 


PDP-11/21 PROCESSOR WITH 16K OR MORE OF MEMORY 

CONSOLE DEVICE (LA30, LA36. VT50. ETC.). LOAD MEDIA DEVICE. 

1.2.2 SOFTWARE REQUIREMENTS 


THIS DIAGNOSTIC IS DESIGNED TO RUN WITH THE DIAGNOSTIC SUPERVISOR 
AS DESCRIBED IN PARAGRAPH 2.0. 


1.3 RELATED DOCUMENTS AND STANDARDS 


XXDP* USERS MANUAL 


1.4 DIAGNOSTIC HIERARCY PREREQUISITES 


NONE 


1.5 ASSUMPTIONS 


THIS DIAGNOSTIC ASSUMES THAT ALL HARDWARE OTHER THAN THE RXV21/RX211 
INTERFACE OR RX02 SUBSYSTEM BEING TESTED WORKS PROPERLY. FALSE 
ERRORS MAY BE REPORTED IF THE PROCESSOR, MEMORY, ETC., DOES NOT 
FUNCTION PROPERLY. 


I 
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MEMORY LAYOUT ON 16K MACHINE - XXDP ENVIRONMENT 


ADDRESS 

♦ 77777 

i t 

i XXDP t MONITOR ! 

i i 

; ; 72000 


DRS 


♦ ♦ 41000 

i i 

S FUNCTION/LOGIC TEST \ 

! DIAGNOSTIC ! 

i i 

; ; 2000 

i i 

STACKS S 

i i 

; ; 400 

i * 

! VECTOR AREA ! 

i i 

; ; o 


IN A MACHINE WITH MORE MEMORY FREE SPACE WILL OCCUR BETWEEN 
THE DIAGNOSTIC AND THE DRS. 
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CTIONS 


THIS IS A RcV A SUPERVISOR DIAGNOSTIC: FOR OPERATING INSTRUC- 
TIONS. PLEASE SEE CHAPTER 5 OF XXDP+ OPERATOR’S MANUAL. THEY 
ARE NO LONGER INCLUDED IN THE DIAGNOSTIC LISTING BECAUSE IT IS 
DESIRED THAT A CHANGE IN THOSE INSTRUCTIONS NOT REQUIRE A RE- 
ASSEMBLY OF ALL SUPERVISOR DIAGNOSTICS. 


2.1 HARDWARE QUESTIONS 


THE FOLLOWING SERIES OF QUESTIONS COMPRISE THE PARAMETERS 
NECESSARY TO IDENTIFY EACH FLOPPY DISK SUBSYSTEM. 

RX ADDRESS - 

THIS PARAMETER DEFINES THE BASE BUS ADDRESS FOR THE FLOPPY 
DISK SUBSYSTEM INTERFACE. 

VECTOR ADDRESS - 

THIS PARAMETER DEFINES THE INTERRUPT VECTOR ADDRESS FOR 
THE FLOPPY DISK SUBSYSTEM INTERFACE. 

DRIVE » - 

THIS PARAMETER DEFINES THE FLOPPY DISK SUBSYSTEM DRIVE 
NUMBER (0 - 1). 

EXPANSION-TYPE - 

THIS PARAMETER IS TO BE USED FOR FUTURE EXPANSION. TYPE 
A CARRIAGE RETURN. 

BR-LEVEL - 

THIS PARAMETER DEFINES THE BR-LEVEL OF THE FLOPPY DISK 
SUBSYSTEM INTERFACE. A BR LEVEL OF 0 -> 7 WILL BE ACCEPTED. 



THE FOLLOWING SERIES OF QUESTIONS ARE INTENDED TO PROVIDE SELECTION 
OF VARIOUS TESY OPTIONS. 

TEST HELP - 

rr AMCUFD T C VF "V" TUFM & 

SHORT HELP DESCRIPTION ON USE OF THIS DIAGNOSTIC 
WILL BE TYPED. 

LOGIC TEST MODE - 

IF ANSWER IS YES M Y’’ THEN THE LOGIC TESTS WILL BE DONE. 

THESE TESTS PROVIDE EXTENSIVE TESTING OF THE FLOPPY DISK 
SUBSYSTEM LOGIC. FAILING FIELD REPLACEABLE UNITS WILL 
BE CALLED OUT AND EXTENSIVE ERROR INFORMATION WILL BE 
REPORTED. THE AMOUNT OF ERROR INFORMATION MAYBE SUPPRESSED 
WITH THE "DRS" "IXE” FLAG. 

FUNCTION TEST MODE - 

IF ANSWER IS YES "Y" THEN THE FUNCTION TESTS WILL BE DONE. 

THESE TESTS PROVIDE A QUICK VERIFICATION THAT THE FLOPPY 
DISK SUBSYSTEM IS FUNCTIONAL. ONLY VERY BASIC ERROR 
REPORTING IS DONE. MEDIA RELATED ERRORS ARE IGNORED. 

DEVICE FATAL THRESHOLD LEVEL - 

THE DEVICE FATAL THRESHOLD LEVEL (DFTL) IS INITIALLY SET=1. 

THIS THRESHOLD LEVEL EQUALS THE NUMBER OR HARD ERRORS THAT 
WILL CAUSE A DEVICE FATAL ERROR WHEN THE DRS *tVL'* FLAG IS SET. 

NON-EXISTENT MEMORY ADDRESS - 

THIS ADDRESS IS USED BY THE DIAGNOSTIC TO TEST THE RX 
CAPABILITY TO DETECT NON EXISTENT MEMORY (VIA BUS TIME 
OUT). THIS IS ONLY TESTED DURING THE NON EXISTENT MEMORY 
TEST. THE STANDARD 160000 DIAGNOSTIC ADDRESS IS USED 
BY DEFAULT. 

EXTENDED ADDRESS BITS - 

THESE BITS ARE USED DURING THE NPR ft NON EXISTENT MEMORY 
TESTS TO TEST THE RX EXTENDED MEMORY CAPABILITIES. BITS 
13 ft 12 ARE SET IN THE RXCS REGISTER CORRESPONDING TO 
BITS 1 ft 0 SET BY THE USER. 

TEST CONTROL FLAGS - 

IF ANSWER IS YES "Y", THEN THE FOLLOWING QUESTION WILL BE 
ASKED. 

PRINT ONLY 10 DATA ERRORS ft CONTINUE 

IF THIS QUESTION IS ANSWERED NO *>1“. THEN ALL ERRORS IN THE 
RX DATA BUFFER WILL BE PRINTED. A YES ANSWER "Y" WILL CAUSE 
ONLY THE FIRST 10 BYTES IN ERROR TO BE PRINTED. 
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3.0 ERROR INFORMATION 


THIS PROGRAM HAS THREE TYPES OF ERROR CLASSIFICATIONS; SYSTEM 
FATAL. DEVICE FATAL. AND HARD ERRORS. 

3.1 SYSTEM FATAL ERRORS 


SYSTEM FATAL ERRORS ARE USED TO INDICATE THAT AN ERROR WAS 
DETECTED BY THE DIAGNOSTIC SUPERVISOR IN RELATION TO LOADING/ 

CONTROLLING THE DIAGNOSTIC PROCESS. WHEN A SYSTEM FATAL ERROR 
IS DETECTED THE UNIT IS USUALLY DROPPED. 

THE CONTENT OF EACH ERROR IS SUCH THAT IT SHOULD BE SELF - 
EXPLANATORY. HOWEVER. THE MESSAGES UTILIZE SOME TERMS THAT 
ARE SPECIFIC TO THE FLOPPY DISK SUBSYSTEM. AND MAY REQUIRE SOME 
GETTING USE TO. 

T 

3.2 DEVICE FATAL ERRORS 


DEVICE FATAL ERRORS ARE A RESULT OF: 

1. REACHING A DEVICE FATAL THRESHOLD LEVEL ("DVTL”) . THIS LEVEL 
IS INITIALLY SET=1. BUT MAY BE MODIFIED BY THE OPERATOR. AN 
•■DVTL" =1 WILL CAUSE 1 HARD ERROR TO BE CLASSIFIED A DEVICE 
FATAL ERROR. 

2. AN ERROR THAT IS CONSIDERED FATAL TO THE DEVICE, BUT TESTING 
WILL CONTINUE. 


3.3 HARD ERRORS 


HARD ERRORS ARE A RESULT OF: A NON-RECOVERABLE ERROR 


3.5 


ERROR PRINTOUT FORMAT 


I 1 


EACH ERROR WILL BE PRINTED OUT USING THE STANDARD ’*DRS" HEADER. 
3.5.1 FUNCTION TESTS 


THE SECOND LINE PRINTED OUT WILL GIVE THE TEST TITLE 

THE THIRD LINE PRINTED OUT WILL IDENTIFY THE ERROR. IF IT 

IS A CSR ERROR THE ACTUAL AND EXPECTED RESULTS WILL BE DISPLAYED. 

EXAMPLE ERROR PRINTOUT: 

CZRXFAO HRD ERR 00004 ON UNIT 01 TST 010 SUB COO PC:003476 
POSITIONING - FNC TST 
CSP- ERROR 

REG ACTUAL=005520 
REG EXPECT =037566 


3.5.2 LOGIC TESTS 


THE SECOND AND THIRD LINES WILL BE PRINTED AS DESCRIBED FOR 
THE FUNCTION TESTS. 

DEPENDING ON THE TYPE OF ERROR ADDITIONAL ACTUAL AND EXPECTED 
RESULTS WILL BE DISPLAYED. THEN THE TEST WILL CALL OUT WHICH ARE 
THE MOST LIKELY FIELD REPLACEABLE UNITS ’TRU'S" THAT ARE 
FAILING. A.L CURRENT DEVICE REGISTERS ARE THEN DISPLAYED, 

INCLU ING A DATA BUFFER DUMP IF DATA WAS BAD. 

EXAMPLE ERROR PRINTOUT: 

CNRXFAO DEV FTL ERR 00019 ON UNIT 01 TST 024 SUB 000 PC:003476 
WRD CNT INTEGRITY PRT:1 - LGC TST 
WORD COUNT ERROR 

REG ACTUAL =000020 
REG EXPECT =000000 

POSSIBLE FAILING ’'FRU'S": 

CONTROLLER * M7744 
INTERFACE - M8256 

UNI T#1 RXCSR=014440 RXESR=010040 CMD=000437 ->READ ERR CODE 
ERROR CODE=230 ->WORD CNT OVF. 

WORD CNT=020 

CUR TRK DV0=76. CUR TRK DRV1= 0. 

TARGET TRK =76. TARGET SEC =10. SOFT STAT=060 BAD TRK=15. 


SEQ 8 


Tl 
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4.0 PERFORMANCE AND PROGRESS REPORTS 

NONE 

5.0 DEVICE INFORMATION 

5.1 DEVICE REGISTERS 

! <FUNCTION>! 


i i i i i 



15 I 

14 

• 13 

! 12i 11! 10! 

09i 08! 07 ! 06 !05 ! 04 !03 i 02 !01 !00 ! 

RXCS : 

ERR! 

INT 

!XM 

!XM 

!RX2! ! 

SID! DEN ! TR ! IE ! DON !DRV ! FUN! FUN! FUN! GO j 

RXUC : 

X 

X 

X 

X 

X X 

X X ! WORD COUNT j 

RXBA: 




0 

c 

</> 

ADDRESS 


RXES: 

X ! 
» 

X 

X 

1 

! X 

i 

!NXM!UC ! 
! ! OVF ! 

SID ! DRV ! DRV ! DEL ! DSK ! DEN ! AC ! INT!SID!CRC! 
#1 !#1 ! RDY ! DAT ! DEN ! ERR ! LOU ! DON ! RD V ! ! 

RXTA: 

X 

X 

X 

X 

X X 

X X ! 0 * TRACK ADDRESS ! 

RXSA: 

X 

X 

X 

X 

X X 

X X ! 0 ! 0 ! 0 ! SECTOR ADDRESS j 

RXDB: 

DATA BUFFER ! 


READ ERROR CODE REGISTERS - (SEE LABLE , *XERUUT") 


WORD 

!15 

i f 

• 14 ! 13! 12! 11! 10! 

1 

09! 

1 1 

08! 07! 06 ‘05 !04 !03 !02 !01 

! 00 ! 

#1 

i 

• 

WORD COUNT 


! 1 ' 'ERROR CODE 


#2 

1 

CURRENT TRACK DRV #1 


! CURRENT TRACK DRIVE #0 


#3 

1 

TARGET SECTOR 


! ' ' TARGET TRACK 


#4 

1 

i 

BAD TRACK-ONLY VALID 
ERRCODE=150 

IF 

!UNT!DV1!HD !DVO! X ! X ! X 
!SEL!DEN!LD !DEN! ! ! 

•LCD! 

!DEN! 
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DEVICE PROTOCOL 
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RX02 FUNCTIONAL PROCESS 


♦ 4 - -♦ 


FUNCTION 
CODE BIT 
#321 

! FUNCTION 


PROCEDURE (PROTOCOL) 

0 0 0 

FILL BUFFER 

! Function 

Word >TR >UC- 

— >TR >BA 

0 0 1 

EMPTY BUFFER 

! Function 

Word >TR >WC- 

— >TR >BA 

0 1 0 

WRITE SECTOR 

! F unc 1 1 on 

Word >TR >SA- 

— >TR >TA 

0 1 1 

READ SECTOR 

! Function 

Word >TR >SA- 

— >TR >TA 

1 0 0 

SET DENSITY 

! Function 

Word >TR >VW- 

~>D0NE 

T 0 1 

READ MAINT. 

! Function 

Word >D0NE 



STATUS 




1 1 0 

WRITE SECTOR 

! Function 

Word >TR >SA- 

— >TR >TA 


wfth deleted 





data 




1 1 1 

READ ERROR 

! Function 

Word >TR >BA- 

— >DONE 


CODE 





+ 


TR = waft for TR BIT 

DONE = waft for DONE BIT 

BA = BUS ADDRESS (output to RX> 

VU = VERIFICATION WORD (output to RX) 
WC = WORD COUNT (output to RX) 

SA = SECTOR ADDRESS (output to RX) 

TA = TRACK ADDRESS (output to RX) 
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TA 


— >D0NE 
>D0NE 
>D0NE 
>D0NE 


>D0NE 


i 

i 
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DEVICE HARDWARE CONFIGURATION 
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i 

i 


V 

************* 

DRIVE 

#1 


A 
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6.0 TEST SUMMARIES 


TEST 1 - INITIALIZE - FNC TST 

TEST TO VERIFY THAT AN RX INITIALIZE WILL RETURN THE DEVICE TO A VALID 
STATE. 

DESCRIPTION: 

1. DO BUS INITIALIZE 

2. IF RX ERR BIT IS SET REPORT ERROR 

3. CALL PROGAMHED INITIALIZE 

A. IF RX ERR BIT IS SET REPORT ERROR 


TEST 2 - READ ERROR CODE - FNC TST 

TEST TO VERIFY THAT THE DEVICE WILL COMPLETE A READ ERROR CODE COMMAND 
WITHOUT ENCOUNTERING AN ERROR. 

DESCRIPTION: 

1. CALL PROGRAMMED INITIALIZE 

2. IF RX ERR BIT IS SET REPORT ERROR 

3. CALL READ ERROR CODE 

A. IF RX ERR BIT IS SET REPORT ERROR 


TEST 3 - FILL BUFFER - FNC TST 

TEST TO VERIFY THE DEVICE BUFFER WILL FILL WITH NO RESULTING ERROR. 

DESCRIPTION: 

1 . CALL FILL BUFFER 

2. IF RX ERR BIT IS SET REPORT ERROR 


TEST A - EMPTY BUFFER - FNC TST 

TEST TO VERIFY THE DEVICE BUFFER WILL EMPTY WITHOUT ERRORS. 

DESCRIPTION: 

1. CALL EMPTY BUFFER 

2. IF RX ERR BIT IS SET REPORT ERROR 


TEST 5 - READ STATUS - FNC TST 

TEST TO VERIFY THAT A DEVICE MAINTENANCE READ STATUS (RXES) COMMAND 
WILL EXECUTE WITHOUT ERROR. 

DESCRIPTION: 

1. CALL READ STATUS 

2. IF RX ERR BIT IS SET REPORT ERRurt 
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TEST 6 - FILL & EMPTY BUFFER - FNC TST 

TEST TO VERIFY THE DEVICE BUFFER DATA IS VALID AFTER A FILL/EMPTY 
BUFFER COMMAND SEQUENCE. 

DESCRIPTION: 

1. SETUP RANDOM DATA PATTERN 

2 . CALL FILL BUFFER 

3. IF RX ERR BIT IS SET REPORT ERROR 
A. CALL EMPTY BUFFER 

5. IF RX ERR BIT IS SET REPORT ERROR 

6. CALL DATA CHECK 

TEST 7 - READ ft WRITE SECTOR - FNC TST 

TEST TO VERIFY THE DEVICE WILL READ AND WRITE IN BOTH DENSITIES WITHOUT 
AN ERROR. 

DESRJPTION- 

1. ’SETUP TO DO TEST IN WRONG DENSITY 

2 . CALL WRITE SECTOR 

3. IF RX ERR BIT IS NOT SET REPORT ERROR 

4. C/LL READ SECTOR 

5. ! r IX ERR BIT IS NOT SET REPORT ERROR 

6. SETUP CORRECT DENSITY 

7 . CALL WRITE SECTOR 

8. IF RX ERR BIT IS SET REPORT ERROR 

9. CALL READ SECTOR 

10. IF RX ERR BIT IS SET REPORT ERROR 


TEST 8 - WRITE SECTOR DELETED DATA - FNC TST 

TEST TO VERIFY THAT THE DEVICE WILL WRITE A DELETED DATA MARK ON THE 
DISKETTE WITHOUT ERROR. 

DESCRIPTION: 

1. SETUP TEST TO CORRECT DENSITY AND DELETED DATA MODE 

2 . CALL WRITE SECTOR DELETED DATA 

3. IF RX ERR BIT IS SET REPORT ERROR 

4. CALL READ SECTOR 

5. IF RX ERR BIT IS SET REPORT ERROR 

6. CLEAR DELETED DATA MODE 

7. CALL WRITE SECTOR (CLEAR DETETED DATA MARK) 

8. IF RX ERR BIT IS SET REPORT ERROR 
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TEST 9 - SET DENSITY - FNC TST 

TEST TO VERIFY THE DEVICE WILL CHANGE DENSITIES WITHOUT INCURRING AN 
ERROR. 

DESCRIPTION: 

1. SETUP DENSITY = DISK DENSITY 

2. CALL SET DENSITY 

3. IF RX ERR BIT IS SET REPORT ERROR 
A. CALL READ SECTOR 

5. IF RX ERR BIT IS SET OR DENSITY NOT CORRECT REPORT ERROR 

6. SETUP DENSITY = OPPOSITE DISK DENSITY 

7. CALL SET DENSITY 

8. IF RX ERR BIT IS SET REPORT ERROR 

9. CALL READ SECTOR 

10. IF RX ERR BIT IS SET OR DENSITY NOT CORRECT REPORT ERROR 

11. SETUP DENSITY = DISK DENSITY 

12. CALL SE r DENSITY 

13. IF RX ERR BIT IS SET REPORT ERROR 


TEST 10 - POSITIONING - FNC TEST 

TEST TO VERIFY THE DEVICE WILI CHANGE SECTORS AND TRACKS WITHOUT 
INCURRING AN ERROR. 

DESCRIPTION: 

1. SETUP RANDOM TRACK PATTERN AND DENSITY = DISK DENSITY 

2. CALL GET A TRACK £ SECTOR 

3. CALL READ SECTOR 

4. IF RX ERR BIT IS SET REPORT ERROR 

5. DO 2. -> A. UNTIL 76. TRACKS DONE 


TEST 11 - CSR BITS - LGC TST 

TEST TO VERIFY THAT THE READ/WRITE BITS OF THE CONTROL AND STATUS REG- 
ISTER CAN BE WRITTEN INTO AND READ AND OTHERWISE BEHAVE AS EXPECTED. 

DESCRIPTION: 

1. LOAD RX CSR WITH I'S 

2. CHECK £ REPORT THAT ALL BITS THAT SHOULD SET, DO SET 
x i run rv r cc uttm n ' 

A! CHECK ft REPORT THAT ALL BITS THAT SHOULD NOT BE SET. 

ARE NOT SET 


T EST 12 - DBR BITS - LGC TST 

TEST TO VERIFY THAT THE READ/WRITE BITS OF THE DATA BUFFER REGISTER 
CAN BE WRITTEN INTO AND READ AS EXPECTED. 

DESCRIPTION: 

1. WRITE RX DBR WITH ALL I'S 

2. CHECK ft REPORT ALL BITS THAT SHOULD ft SHOULD NOT BE SET 

3. WIRTE RX DBR WITH ALL O'S 

A. CHECK ft REPORT ALL BITS THAT SHOULD ft SHOULD NOT BE SET 
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TEST 13 - CSR-DBR COMMON BYTE - LGC TST 

TEST TO VERIFY THAT THE LOUER BYTE OF THE RXCS MAPS INTO THE RXDB AND 
THEREFORE CHECK WRITE ONLY BITS OF THE RXCS. 


DESCRIPTION: 

1. LOAD RX CSR LOU BYTE WITH ALL 1*S (EXCEPT BIT#0> 

2. CHECK ft REPORT IF RX DBR LOW BYTE NOT EQUAL TO ALL 
(EXCEPT BIT#0 ft BIT#3> 

3. LOAD RX CSR LOW BYTE WITH ALL O'S 

4. CHECK ft REPORT IF RX DBR LOU BYTE NOT EQUAL TO ALL 


I'S 

O'S 


TEST 14 - BUS INITIALIZE - L^C TST 

TEST TO VERIFY THAT THE INTERFACE BOARD WILL COMPLETE A BUS INITIALIZE. 

DESCRIPTION: 

1. ISSUE BUS INITIALIZE 

2. CHECK ft REPORT IF ERROR BIT OR AC LOW BIT ARE SET OR IF DONE 
BIT IS NOT SET 


TEST 15 - PROGRAMMED INITIALIZE - LGC TST 

TEST TO VERIFY THAT THE INTERFACE BOARD WILL COMPLETE A PROGRAMMED 
INITIALIZE. 

DESCRIPTION: 

1. CALL PROGRAMMED INITIALIZE 

2. CALL DEVICE STATE CHECK 

3. CHECK ft REPORT ERRORS 


TEST 16 - POWER FAIL - LGC TST 

TEST TO VERIFY THAT THE ACLOU CIRCUITS OPERATE AS EXPECTED. 

DESCRIPTION: 

1. IF MANNUAL INTERVENTION ALLOWED ASK OPERATOR TO POWER DOWN RX 

2. IF POWERED DOWN, THEN CHECK ft REPORT IF AC LOU BIT NOT SET 

3. ASK OPERATOR TO POWER UP RX 

4. IF POWERED UP, THEN INITIALIZE, CHECK ft REPORT IF AC LOW BIT SET 


TEST 17 - CONTROLLER-INTERFACE - LGC TST 

TEST TO VERIFY THAT THE INTERFACE BOARD STATE SEQUENCER IS FUNCTIONAL. 
ALSO TO VERIFY THE CONTROLLER-INTERFACE HANDSHAKE BY TRYING FUNCTIONS 
WITH MINIMUM READ/WRITE BOARD INVOLVEMENT. 

DESCIRPTION: 

1. CALL READ ERROR CODE 

2. IF ERROR, THEN REPORT ERROR 

3. CALL FILL BUFFER 

4. IF ERROR, THEN REPORT ERROR 

5. CALL EMPTY BUFFER 

6. IF ERROR, THEN REPORT ERROR 

7. CALL READ STATUS 

8. IF ERROR, THEN REPORT ERROR 
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TEST 18 - NPR - LGC TST 

TEST TO VERIFY THAT THE NPR LOGIC WILL STORE A WORD IN MEMORY. 
DESCRIPTION: 

1. SETUP MEMORY LOCATION 

2. C*»LL READ ERROR CODE (TO WRITE OVER LOCATION) 

3. IF ERROR. THEN REPORT NPR ERROR 

4. SETUP BUFFER AREAS BEGIN. END 8 END+1 

5. CALL FILL BUFFER 

6. IF ERROR. THEN REPORT ERROR 

7. CALL EMPTY BUFFER 

8. IF ERROR. THEN REPORT ERROR 

9. CHECK BUFFER AREAS BEGIN & END SHOULD CHANGE & END+1 SHOULD 
NOT. REPORT AS NPR ERROR. IF CONDITIONS NOT MET 


TEST 19 - NPR NON-EXISTENT MEM - LGC TST 

TEST TO VERIFY THAT THE NPR NON-EXISTEND MEMORY LOGIC WILL TIME OUT 

when given an illegal address. 

DESCIRPTION: 

1. SETUP BUS TRAPS AND NONEXSISTANT MEMORY ADDRESS 

2. CALL READ ERROR CODE 

3. If RX CSR ERROR BIT OR RX ESR NXM BIT NOT SET, THEN CALL ERROR 

4. CALL INITIALIZE (CLEAR RX ERROR) 

5. CLEAR BUS TRAP VECTOR 


TEST 20 - INTERRUPT - LGC TST 

TEST TO VERIFY THAT THE INTERRUPTS CAN BE SET AND THAT THE DEVICE 
RESPONDS AS EXPECTED. 

DESCRIPTION: 

1. SET PROCESSOR PRIORTY = 7 (NO INTERRUPTS) 

2. SET RX INTERRUPT BIT 8 SETUP LOWER PRIORITY 

3. CALL WATCH TO LOWER PROCESSOR PRIORITY 8 WAIT FOR INTERRUPT 

4. CALL ERROR IF DID NOT INTERRUPT 

5. CLEAR RX INTERRUPT BIT 


TEST 21 - PRIORITY LVL - LGC TST 

TEST TO VERIFY THAT THE DEVICE PRIORITY IS SET TO THE CORRECT LEVEL. 
DESCRIPTION: 

1. SETUP PROCESSOR PRIORITY = 6 (NO INTERRUPTS) 

2. DO SET PROCESSOR PRIORITY 

3. SET RX INTERRUPT BIT 

4. IF INTERRUPT 3CCURED, THEN CHECK LEVEL 8 REPORT IF PROCSSOR 
PRIORITY NOT LOWER THAN RX 

5. IF INTERRUPT DID NOT OCCUR, THEN SETUP NEXT LOWER PROCESSOR 
PRIORITY 8 START AT 2. AGAIN 



E 2 


SEQ 17 


TEST 22 - INITIALIZE CONTROL - L6C TST 

TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE INITIALIZE. 
DESCRIPTION: 

1. CALL PROGRAMMED INITIALIZE 

2. IF ERROR. THEN REPORT ERROR 


TEST 23 - DATA BUF INTEGRITY - LGC TST 

TEST TO VERIFY ALL BITS OF DATA BUFFER, VARIOUS PATTERNS WILL BE USED. 
DESCRIPTION: 

1. SETUP RANDOM DATA PATTERN 

2. CALL FILL BUFFER 

3. IF ERROR, THEN REPORT ERROR 

4. CALL EMPTY BUFFER 

5. IF ERROR. THEN REPORT ERROR 

6. CALL DATA CHECK 

7. SETUP NEW DATA PATTERN 

8. DO 2. -> 7. UNTIL Al L DATA PATTERNS DONE 


TEST 24 - URD CNT INTEGRITY - LGC TST 

TEST TO VERIFY ALL BITS OF WORD COUNT REGISTER AND CHECK THAT EXCEEDING 
THE WORD COUNT FOR DISKETTE DENSITY WILL BE DETECTED. 

DESCRIPTION: 

1. SETUP BUFFER LENGTH = 128. 

2. CALL FILL BUFFER 

3. IF ERROR. THEN REPORT ERROR 

4. CALL READ ERROR CODE 

5. IF ERROR, THEN REPORT ERROR 

6. IF RX WORD COUNT NOT = 0, THEN CALL ERROR 

7. DECREMENT WORD COUNT TO RX, DO 2. -> 6. UNTIL WORD COUNT TO RX 
IS = 0 


TEST 25 - CONTROLLER-READ*WRI TE ELECT - LGC TST 

TEST TO VERIFY MINIMAL CONTROLLER BOARD-READ/WRITE ELECTRONICS BOARD 
INTERFACE VIA INITIALIZE OF A SELECTED DRIVE. 

DESCRIPTION: 

1. CALL PROGRAMMED INITIALIZE 

2. IF ERROR. THEN REPORT ERROR 

3. CALL READ ERROR CODE 

4. IF ERROR. THEN REPORT ERROR 



TEST 26 - READ SECT0R-PRT:1 - LGC TST 
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TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE A READ SECTOR IN 
BOTH DENSITIES AND RETURN A VALID ERROR CODE. 

DESCRIPTION: 

1. SETUP DENSITY = DISK DENSITY 

2. CALL READ SECTOR 

3. CALL READ ERROR CODE 

4. IF ERROR, THEN REPORT ERROR 

5. SETUP DENSITY = OPPOSITE DISK DENSITY 

6. CALL READ SECTOR 

7. CALL READ ERROR CODE 

8. IF ERROR, THEN REPORT ERROR 


TEST 27 - POSITIONING - LGC TST 

TEST TO VERIFY THAT THE DRIVE WILL READ THE HEADERS ON ALL TRACKS OF 
THE DEIVE AS EXPECTED. 

DESCRIPTION: 

1. SETUP RANDOM TRACKS MODE 

2. CALL GET A TRACK 

3. CALL READ SECTOR 

4. CALL READ ERROR CODE 

5. IF TRACK OR OTHER ERROR, THEN REPORT ERROR 

6. DO 2. -> 5. UNTIL 76. TRACKS DONE 


TEST 28 - WRITE SECTOR-PRTrl - LGC TST 

TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE A WRITE SECTOR IN 
BOTH DENSITIES AND RETURN A VALID ERROR CODE. 

DESCRIPTION: 

1. SETUP DENSITY = DISK DENSITY 

2. CALL WRITE SECTOR 

3. IF ERROR. THEN REPORT ERROR 

4. SETUP DENSITY = OPPOSITE DISK DENSITY 

5. CALL WRITE SECTOR 

6. IF NO DENSITY ERROR. THEN REPORT ERROR 
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TEST 29 - DELETED DATA WRITE PRT:1 - LGC TST 

TEST TO VERIFY THAT THE DEVICE SIT * DELETED DATA MARK ON THE DISKETTE 
HEADER AND RETRIEVE THIS DATA ON A KNOWN GOOD DISKETTE. 

DESCRIPTION: 

1. SETUP DENSITY = DISK DENSITY 

2. SETUP DELETED DATA MODE 

3. CALL WRITE SECTOR 

4. IF ERROR, THEN REPORT ERROR 

5. CALL READ SECTOR 

6. IF RX CSR DELETED DATA 81 T NOT SET, THEN REPORT ERROR 

7. CLEAR DELETED DATA MODE 

8. CALL WRITE SECTOR (CLEAR DELETED DATA MARK) 


TEST 30 - SET DENSITY - LGC TST 

TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE SET DENSITY IN BOTH 
DENSITIES. THE VALID WORD WILL ALSO BE CHECKED. ALSO TO VERIFY THAT 
THE DRIVE WILL READ IN BOTH DENSITIES, WITHOUT ERRORS. 

DESCRIPTION: 

1. GET & SAVE DISK DENSITY 

2. SETUP DENSITY = SINGLE 

3. CALL SET DENSITY 

4. IF ERROR, THEN REPORT ERROR 

5. SETUP INVALID KEY WORD = ASCII ' V 

6. CALL SET DENSITY 

7. IF NO DENSITY ERROR, THEN REPORT ERROR 

8. SETUP VALID KEY WORD = ASCII ‘T* 

9. SETUP DENSITY = DOUBLE 

10. CALL SET DENSITY 

11. IF ERROR. THEN REPORT ERROR 

12. CHECK DISK DENSITY ft REPORT IF NOT SET = DOUBLE 

13. IF SAVED DISK DENSITY = DOUBLE, THEN SET DENSITY = SINGLE 
AND CALL SET DENSITY 


TEST 31 - SECTOR ADR - LGC TST 

TEST TO VERIFY THAT THE CONTROLLER WILL HANDLE ALL LEGAL AND ILLEGAL 
SECTOR ADDRESSES PROPERLY. 

DESCIRPT10N: 

1. GET A SECTOR 

2. CALL READ SECTOR 

3. CALL READ ERROR CODE 

4. IF SECTOR ADDRESS NOT = RX SECTOR ADDRESS OR OTHER ERROR, 
THEN REPORT ERROR 

5. DO 1. -> 4. UNTIL ALL SECTORS DONE OR ERROR OCCURS 

6. SETUP SECTOR = 0 (ILLEGAL SECTOR) 

7. CALL READ SECTOR 

8. CALL READ ERROR CODE 

9. IF NO SECTOR ERROR OR IF OTHER ERROR, THEN REPORT ERROR 



H 2 


SEQ 20 


TEST 32 - TRACK ADR - LGC TST 

TEST TO VERIFY THAT THE CONTROLLER WILL HANDLE ALL LEGAL AND ILLEGAL 
TRACK ADDRESSES PROPERLY. 

DESCRIPTION: 

1. GET A TRACK 

2. CALL READ SECTOR 

3. CALL READ ERROR CODE 

4. IF TRACK ADDRESS NOT = RX TRACK ADDRESS, THEN CALL ERROR 
OR IF OTHER TRACK ERROR OCCURED, THEN CALL ERROR 

5. DO 1. -> 4. UNTIL ALL TRACKS DONE OR FINI FLAG SET (COMMAND ERROR) 

6. SETUP ILLEGAL TRACK 

7. CALL READ SECTOR 

8. CALL READ ERROR CODE 

9. IF TRACK ADDRESS NOT = RX TRACK ADDRESS OR 

IF ERROR CODE NOT = 40 (TRACK > 76.), THEN CALL ERROR 


TEST 33 - READ SECT0R-PRT:2 - LGC TST 

TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE A READ SECTOR IN 
BOTH DENSITIES AND RETURN A VALID ERROR CODE. 

DESCRIPTION: 

1. SETUP DENSITY = DISK DENSITY 

2. CALL READ SECTOR 

3. CALL READ ERROR CODE 

4. IF ERROR. THEN REPORT ERROR 

5. SETUP DENSITY = OPPOSITE DISK DENSITY 

6. CALL READ SECTOR 

7. CALL READ ERROR CODE 

8. IF NOT DENSITY ERROR. THEN REPORT ERROR 


TEST 34 - WRITE SECT0R-PRT:2 - LGC TST 

TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE A WRITE SECTOR IN 
BOTH DENSITIES AND RETURN A VALID ERROR CODE. 

DESCRIPTION: 

1. SETUP DENSITY = DISK DENSITY 

2. CALL WRITE SECTOR 

3. IF ERROR, THEN REPORT ERROR 

4. SETUP DENSITY = OPPOSITE DISK DENSITY 

5. CALL WRITE SECTOR 

6. IF NOT DENSITY ERROR. THEN REPORT ERROR 



SEQ 21 


I 2 


TEST 35 - DELETED DATA WRI Tr PRT:2 - L6C TST 

TEST TO VERIFY THAT THE DEVICE SET A DELETED DATA MARK ON THE DISKETTE 
HEADER AND RETRIEVE THIS DATA ON A KNOWN GOOD DISKETTE. THIS IS DONE 
IN OPPOSITE DENSITY OF PART: 1. 

DESCRIPTION: 

1. SETUP DENSITY * DISK DENSITY 

2. SETUP DELETED DATA MODE 

3. CALL WRITE SECTOR 

4. CALL READ ERROR CODE 

5. IF ERROR, THEN REPORT ERROR 

6. CALL READ SECTOR 

7. IF RX ESR DELETED DATA BIT NOT SET OR OTHER ERROR, THEN REPORT ERROR 


TEST 36 - DISKETTE & DENSITY DATA CHECK - LGC TST 

TEST TO VERIFY WITH A KNOWN GOOD DISKETTE THAT THE DEVICE WILL READ 
AND WRITE TO THE DISKETTE WITHOUT DATA ERRORS. BOTH DENSITIES WILL 
BE DONE. ' 

DESCRIPTION: 

1. SETUP DENSITY = DISK DENSITY 

2. SETUP RANDOM DATA PATTERN 

3. GET A TRACK £ SECTOR 

4. CALL FILL BUFFER 

5. CALL WRITE SECTOR 

6. SETUP TO CLEAR RX INTERNAL BUFFER 

7. CALL FILL BUFFER 

8. CALL READ SECTOR 

9. CALL EMPTY BUFFER 

10. CALL DATA CHECK 

11. DO 3. -> 10. UNTIL AT LEAST ONE SECTOR OF EACH TRACK IS ACCESSED 

12. SETUP DENSITY = OPPOSITE DISK DENSITY 

13. CALL SET DENSITY 

14. DO 3. -> 13. UNTIL BOTH DENSITIES DONE 



REVISION HISTORY 


CZRXFAO MACRO AND DOCUMENTATION HAV BEEN REVISED TO RUN ON PDP11/21 
PROCESSOR AND RENAMED TO CNRXFAO TO BE SPECIFIC TO THIS PROCESSOR. 
THE CHANGES INCLUDE PROCESSOR PRIORITY BEING LOWERED TO 6 FROM 7. 


LISTING INDEX 



SEQ 2 3 

»°OGRAM HEADER AND TABLES MACRO M1200 14-DEC-82 16:33 

TABLE OF CONTENTS 

2- 23 PROGRAM HEADER 

2- 92 DISPATCH TABLE 

3~ 108 DEFAULT HARDWARE P-TABLE 

3- 129 LOAD DEVICE PROTECTION 

3- HI SOFTWARE P-TABLE 

5- 189 GLOBAL EQUATES SECTION 

12- 664 GLOBAL DATA SECTION 

12- 713 - READ ERROR CODE BUFFER 

15- 798 GLOBAL TEXT SECTION 

17- 837 GLOBAL ERROR REPORT SECTION 

19- 891 - MOD U. ERR. ERR - ERROR 

23- 994 - MOD U.SFT.ENV - ERROR NUMBER EVALUATION 

25- 1048 - MOD U.PRT.PET - PRINT ERROR TYPE 

25- 1121 - MOD U. ERR. IDT - GET £ PRINT ERROR IDENTIFICATION MESSAGE 

29- 1204 - ERROR MESSAGES 

29- 1265 - MOD U.SFT.FRU - GET £ PRINT FRU'S IDENT 

33- 1369 - FRU MESSAGES 

35- 1403 - FRU CALLOUT - PRESETUP FOR TESTS 

37- 1451 - FRU CALLOUT - PRESETUP FOR ERROR CODE 

39- 1474 - MOD U.ERR.PCE - PRINT COMMAND ERROR 

41- 1521 - COMMAND ERROR MESSAGE TABLE 

43- 1547 - MOD U.ERR.PRE - PRINT REGISTER ERROR 

43- 1564 - MOD U.PRT.SCP - PRINT SECTORS 

45- 1595 - MOD U.K'.TKP - PRINT TRACKS 

47- 1653 - MOD U.EM.CLE - CLEAR ERRORS 

49- 1676 GLOBAL SUBROUTINES SECTION 
49- 1742 - MOD U. 1.0 - RANDOM GENERATOR 

51- 1840 - MOD U.DEV.INT - INITIALIZE DEVICE 

51- 1864 - MOD U.DEV.CLD - CLEAR DEVICE 

53- 1885 - MOD U.DEV.FLB - FILL 8UFFER 

55- 1921 - MOD U.DEV.EMB - EMPTY BUFFER 

57- 1957 - MOD U.DEV.WRT - WRITE SUBROUTINE 

59- 1993 - MOD U. DEV. RED - READ SUBROUTINE 

61- 2028 - MOD U. DEV. SDN - SET DENSITY 

63- 2060 - MOD U.DEV.RST - READ STATUS 

65- 2087 - MOD U.DEV.REC - READ ERROR CODE 

67- 2123 - MOD U.DEV.CMD - SETUP DEVICE COMMAND 

67- 2144 - MOD U.DEV.SSC - SETUP SUBSYSTEM COMMANDS 

69- 2170 - MOD U.DEV.CEC - DEVICE COMMAND ERROR CHECK 

71- 2199 - MOD U.DEV.WRT - WAIT SUBROUTINE 

71- 2223 - HOD U.DEV.DRC - DEVICE DONE CHECK 

73- 2248 - MOD U.DEV.WCH - WATCH DOG TIMER 

75- 2294 - MOD U.DEV.WDN - AWAIT DONE BIT SUBROUTINE 

77- 2325 - MOD U.DEV.WTR - AWAIT TRANSFER READY SUBROUTINE 

79- 2366 - MOD U. DEV. REG - GET DEVICE REGISTERS 

79- 2389 - MOD U.DEV.ITR - INTERRUPT HANDLER 

81- 2409 - MOD U.SFT.DPT - SET DATA PATTERN 

83- 2511 - MOD U.SFT.GTK - GET TRACK 

85- 2554 - MOD U.SFT.GSC - GET SECTOR 

87- 2583 - MOD U.SFT.DCK - DATA CHECK 

89- 2642 - MOD U.SFT.CDB - CLEAR DATA BUFFER 

91- 2655 - MOD U.SFT.RCR - REGISTER CHECK £ REPORT 

93- 2766 - MOD U.SFT.SRC - SETUP REGISTER CHECK 

95- 2808 - MOD U.SFT.BTK - BITS SET/NOT SET CHECK 

99- 2909 - PRESETUP REGISTER TABLES 

101- 2929 - MOD U. SET. GEN - GET ERROR CODE-ERR # 

103- 2975 - MOD U.PRT.STA - PRINT UNIT STATUS 


CC 
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105- 3022 
107- 3065 
107- 3091 
107- 3101 

109- 3113 

110- 3152 
112- 3175 
114- 3230 
118- 3305 
122- 3389 
124- 3423 
124- 3442 
124- 3456 
126- 3471 
126- 3489 
128- 3519 
128- 3537 
128- 3558 
130- 3569 
130- 3588 

130- 3610 

131- 3633 

132- 3690 

133- 3779 

133- 3817 

134- 3829 
134- 3859 
134- 3896 

134- 3905 

135- 3985 

136- 4028 

137- 4053 
139- 4087 
141- 4120 
143- 4147 
145- 4175 
147- 4205 
149- 4246 
153- 4310 
155- 4352 

159- 4415 

160- 4456 
163- 4518 
166- 4574 
169- 4633 

172- 4689 

173- 4723 
176- 4788 
179- 4837 

183- 4926 

184- 4973 

187- 5022 

188- 5059 

191- 5135 

192- 5163 
195- 5222 
198- 5288 


- MOD U.PRT.EC - PRINT UNIT ERROR CODE 

UNIT ERROR CODE MESSAGES 

- MOD U. SET. GEO - GET ERROR CODE OFFSET 

- MOD U.SFT.CRS - CLEAR REGISTERS 

- MOD U.SFT.DSC - DEVICE STATE CHECK 

- MOD U.SFT.DRC - DEVICE READY CHECK 

- MOD U.SFT.DDC - DEVICE DENSITY CK 

- MOD U.SFT.TKE - TRACK ERROR CHECK 

- MOD U.SFT.ECK - ERROR CHECK 

- MOD U.SFT.ENC - ERROR NEG TEST CHECK 

- MOD U.SFT.DBG - TEST STATUS 

- MOD U.SFT.CDC - COMPLIMENT DENSITY CONTROL 

- MOD U.SFT.SDC - SETUP DENSITY CONTROL 

- MOD U.PRT.UNT - PRINT UNIT IDENT 

- MOD U.PRT.DID - PRINT DRIVE IDENT 

- MOD U.TST.FTS - FUNCTION TEST SETUP 

- MOD U.TST.LTS - LOGIC TEST SETUP 

- MOD U.TST.SFG - SETUP TEST FLAGS 

- MOD U.SFT.SDC - SETUP DEVICE COMMANDS 

- MOD U.TST.CCR - CLEAR TEST CTRS 8 ERROR REGS 

- MOD U.TST.T76 - SET TRACK=76 
REPORT CODING SECTION 
INITIALIZE SECTION 

- MOD 1.1 - UNPACK HARDWARE P-TABLES 

- MOD 1.2 - INITIALIZE TABLES 
CLEANUP CODING SECTION 

DROP UNIT SECTION 
AUTO DROP UNIT SECTION 
ADD UNIT SECTION 
TEST 0 - ADDRESSING TEST 

- MOD U.SFT.TRP - BUS TRAP HANDLER 

TEST 1 - INITIALIZE - FNC TST 
TEST 2 - READ ERROR CODE - FNC TST 

TEST 3 - FILL BUFFER - FNC TST 

TEST 4 - EMPTY BUFFER - FNC TST 
TEST 5 - READ STATUS - FNC TST 

TEST 6 - FILL 8 EMPTY BUFFER - FNC TST 

TEST 7 - READ 8 WRITE SECTOR - FNC TST 

TEST 8 - WRITE SECTOR DELETED DATA - FNC TST 

TEST 9 - SET DENSITY - FNC TST 

TEST 10 - POSITIONING - FNC TST 

TEST 11 - C C P BITS - LGC TST 

TEST 12 - jBR BITS - LGC TST 

TEST 13 - CSR-DPR COMMON BYTE - LGC TST 

TEST 14 - 3US INITIALIZE - LGC TST 

TEST 15 - ‘ROGRAMMED INITIALIZE - LGC TST 

TEST 16 - POWER FAIL - LGC 1ST 

TEST 17 - CONTROLLER-INTERFACE - LGC TST 

TEST 18 - NPR - LGC TST 

- MOD U.SFT.NAT - ADDRESS NPR ADDRESS TEST 
TEST 19 - NPR NON-EXISTENT MEM - LGC TST 
TEST 20 - INTERRUPT - LGC TST 

TEST 21 - PRIORITY LVL - LGC TST 

TEST 22 - INITIALIZE CONTROL - LGC TST 

TEST 23 - DATA BUF INTEGRITY - LGC TST 

TEST 24 - WRD CNT INTEGRITY - LGC TST 

TEST 25 - CONTROLLER-READ*WRITE ELECT - LGC TST 
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TEST 26 - READ SECT0R-PRT:1 - L6C TST 

TEST 27 - POSITIONING - LGC TST 

TEST 28 - WRITE SECT0R-PRT:1 - LGC TST 

TEST 29 - DELETED DATA WRITE PRT:1 - lGC TST 

TEST 30 - SET DENSITY - LGC TST 

TEST 31 - SECTOR ADR - LGC TST 

TEST 32 - TRACK ADR - LGC TST 
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HARDWARE PARAMETER CODING SECTION 
SOFTWARE PARAMETER CODING SECTION 
RX02 FILL BUFFER AREA 
RX02 EMPTY BUFFER AREA 
PATCH AREA 



SEQ 25 



N 2 

PARAMETER CODING MACRO Ml 200 14-DEC-82 16:33 PAGE 2 

.NLIST SEQ.LD.BIN.CND 


•KEPT 0 


9 

.LIST SEO. BIN 

22 

.TITLE PROGRAM HEADER AND TABLES 

23 

.SBTTL PROGRAM HEADER 

49 


51 

.ENABL ABS.AMA 

52 002000 

.=2000 

53 

.NLIST BEX.MD 

55 


56 002000 

BGNMOD 

57 


58 

♦♦ 

59 

THE PROGRAM HEADER IS THE INTERFACE BETWEEN 

60 

THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 

61 

• • 

62 


63 002000 

POINTER BGNSU.BGNSFT.BGNAU.BGNDU.ERRTBL.BGNSETUP 

64 


74 


75 002000 

HEADER CNRXFAO.O. 0,170,0 

76 002122 

DESCRIPT <RX02 FUNCTION-LOGIC TEST> 

77 


86 002154 

DEVTYP <RX02> 

87 


88 


89 


90 


91 


92 

•S8TTL DISPATCH TABLE 

93 


94 

♦♦ 

95 

THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH 

96 

IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 

97 

— 

98 


99 002162 

DISPATCH 36 

too 



SEO 26 



PROGRAM HEADER AND TABLES 
DEFAULT HARDWARE p-table 


144 

145 


166 

167 

168 

169 

170 

171 

172 

173 

174 


002350 


B 3 

MACRO Ml 200 14-DEC-82 16:33 PAGE 3 


108 


SBTTL 

DEFAULT HARDWARE P-TABLE 

109 


♦ ♦ 



110 


THE 

DEFAULT HARDWARE P-TABLE 

CONTAINS DEFAULT VALUES OF 

111 


THE 

TEST-DEVICE PARAMETERS. 

THE STRUCTURE OF THIS TABLE 

112 


IS IDENTICAL TO THE STRUCTURE 

OF THE HARDWARE P-TABLE S. 

113 





114 002274 



BGNHU DFPTBL 


115 002276 

177170 


.WORD 177170 

; UNIBUS ADDRESS 

116 002300 

000264 


.WORD 264 

.•VECTOR ADDRESS 

117 002302 

000000 


.WORD 0 

.•DRIVE # 

118 002304 

000000 


.WORD 0 

.•FUTURE EXPANSION 

119 002306 

000005 


.WORD 5 

;BR LEVEL #’S 

125 002310 



ENDHW 


126 





129 


.SBTTL 

LOAD DEVICE PROTECTION 


130 


♦ ♦ 



131 


LOAD 

DEVICE PROTECTION TABLE 

- USED TO CHECK HARDWARE P-TABLE 

132 


AGAINST LOAD DEVICE. 


133 





134 002310 



BGNPROT 


135 002310 

000000 


.WORD 0 

; P-TABLE OFFSET->CSR 

136 002312 

177777 


.WORD -1 

; P-TABLE OF F SE T-> VE C T OR-DON ' T CARE 

137 002314 

000004 


.WORD 4 

; P-TABLE OFFSET->DRIVE 

138 002316 



ENDPROT 


140 





141 


SBTTL 

SOFTWARE P-TABLE 


142 


♦ 4 



143 


THE 

SOFTWARE P-TABLE CONTAINS 

THE VALUES OF THE PROGRAM 


PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


146 002316 


BGNSW 

SFPTBL 


147 002320 

000001 

DVTL: .WORD 

1 

HARD ERR0R->DEVICE FATAL THRESHOLD 

148 002322 

000000 

.WORD 

0 

CONTROL WORD FOR SOFTWARE P-TABLES 

149 002324 

000001 

TSTMOD: : .WORD 

1 

TEST MODE 

150 002326 

000000 

TSTPAT: : .WORD 

0 

TEST PATTERN # 

151 002330 

000000 

TRKSEQ:: .WORD 

0 

TRACK SEQUENCE # 

152 002332 

000020 

SWREG: : .WORD 

20 

SOFTWARE SWITCH REG 

153 002334 

000000 

OD:: .WORD 

0 

OUTSIDE DIA. TRACK LIMIT 

154 002336 

000114 

ID:: .WORD 

114 

INSIDE DIA. TRACK LIMIT. 

155 002340 

000001 

MINSEC : : .WORD 

1 

MINIMUM SECTOR LIMIT 

156 002342 

000032 

MAXSEC:: .WORD 

32 

MAXIMUM SECTOR LIMIT 

157 002344 

160000 

NXMADR : : .WORD 

160000 

NON-EXISTENT MEMORY-ADR 

158 002346 

000000 

XADBIT: : .WORD 

0 

EXTENDED ADDRESS BITS 

165 002350 


ENDSW 




15! 14! 13! 12! 11! 10! 09! 08! 07! 06! 05! 04! 03! 02! 01! 00 


•SWREG: ! 

!PRT! 

! S ID ! 

! ! ! ! ! 

1 

! TEN! SEIC ! 

! FUN! ! 

. 1 

! STA! 

!FLG! 

j ! ! ! ! 

• 

! DAT! CAL! 

! TST ! ! 


ENDMOD 


SEC 27 
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188 

189 

215 

225 

226 
227 
27 3 
291 
297 
326 
332 
344 
416 
422 
452 
458 

488 

489 

490 

491 

492 

493 

494 

495 


002350 


002350 


.TITLE GLOBAL AREAS 

.SBTTL GLOBAL EQUATES SECTION 

; < TEST MmCROS > 

; THIS SECTION CONTAINS MACROS USED THROUGHOUT THE TESTS 


BGNMOD 

♦♦ 

THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
ARE USED IN MORE THAN ONE TEST. 



EQUALS 


; BIT DIFINITIONS 

ETSHHHH 

BIT 15== 100000 

040000 

BIT 14== 40000 

020000 

BIT13== 20000 

010000 

BIT12== 10000 

004000 

BIT11== 4000 

002000 

BIT10== 2000 

001000 

BIT09== 1000 


BI T08== 400 


BIT07== 200 


81 T06== 100 

• 'I 

BIT05== 40 

' vIt '• ■ ■’ 

BIT04== 20 


BI T03== 10 

" • 

BIT02== 4 


BIT01== 2 


BI T00== 1 

001000 

BIT9== BIT09 

000400 

BIT8== BIT08 

000200 

BIT7== BIT07 

000100 

BIT6== BIT06 

000040 

BIT5== BIT05 

000020 

BIT4== BIT04 

000010 

BIT3== BITO* 

mii 

BIT2== BIT02 

'it i i 

BIT1== BI TOT 

000001 

BI T0== BITOO 


EVENT FLAG DEFINITIONS 

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
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D 3 


000040 

EF.START== 

32. 

000037 

EF.RESTART== 

31. 

000036 

EF.C0NTINUE== 

30. 

000035 

EF.NEW== 

29. 

000034 

EF.PWR== 

28. 



000100 

000200 

00G4Cu 

001000 



; PRIORITY LEVEL DEFINITIONS 

PR I 07== 340 
PR I 06== 300 
PRI05== 240 
PR I 04== 200 
PR I 03== 140 
PR I 02== 100 
PR i 01 == 40 
PR I 00== 0 

•OPERATOR FLAG BITS 


EVL== 

4 

LOT== 

10 

ADR== 

20 

IDU== 

40 

ISR== 

100 

UAM== 

200 

BOE== 

400 

PNT== 

1000 

PRI== 

2000 

IXE== 

4000 

I BE == 

10000 

IER== 

20000 

LOE== 

40000 

H0£== 

100000 



SEQ 29 


BIT POSITION IN SECOND STATUS WORD 
(100000) START COMMAND WAS ISSUED 
(040000) RESTART COMMAND WAS ISSUED 
(020000) CONTINUE COMMAND WAS ISSUED 
(010000) A NEW PASS HAS BEEN STARTED 
(004000) A POWER-FAIL/POWER-UP OCCURRED 


GLOBAL AREAS MACRO Ml 200 
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Ml 

• • 

is; 

Si! 

III 

.1? 

Si! 


Si! 

E»s 

T * *3 

giS 

ill 

y ! 

i!i 

••! 

Si! 

ii 

Si! 

M 

Si! 

Si! 

Si! 

$t 

PT 

ill 

Si! 

i ■ A 

Si! 

Si! 

Hf 

Si! 


Si 

w® 

Si 

iifi 

Si 

iii 

ii 

S L ! 

• i! 

T • i 

2iS 


001000 




;****• PROGRAM EQUIVALENTS 


DLDCMD 

ERRBIT 

RXINIT 

RX2BIT 

SIDE1 

DENBIT 

TRBIT 

DNBIT 

DRV1 

NXMBIT 

UCOVRF 

DRIVE1 

DRVRDY 

DLDBIT 

DRVDEN 

DENERR 

ACLOU 

INI TON 

SIDRDY 

CRCERB 

BTRPA 

BTRP6 

LOGICT 

FUNCTT 

SIDFLG 

ITK 

ISC 

STK 

SSC 

RTK 

RSC 

ILTK 


= BIT3 

= BIT15 

= BIT1A 

= BIT11 

= BIT9 

- BIT8 

= BIT7 

= BIT5 

= BITA 

= BIT11 

= BIT10 

= BIT8 

= BIT7 

= BIT6 

= BIT5 

= BITA 

= BIT3 

= BIT2 

= BIT1 

= BITO 

= A 

= 6 

= BITO 

= BIT1 

= BIT12 

= B1T8 

= BIT9 

= BITO 

= BIT1 

= 0 

= 0 

= BIT2 

DEVICE COMMANDS 


FBCMD 

EBCMD 

WSCMD 

RSCMD 

SDCMD 

STCMD 

UDDCMD 

RECCMD 


SEQ 30 


E 3 


DEL. DATA CMO BIT 

ERROR BIT 

RXINIT BIT 

RX02 BIT 

SIDE #1 BIT 

DENSITY BIT 

TR BIT 

DONE BIT 

DRIVE 1 

NON-EXISTENT MEM- 


-<CSR> 

-<CSR> 

•<CSR> 

*<CSR> 

-<ESR> l 

-<CSR> 

-<CSR> 

-<C$R> 

-<CSR> 

-<ESR> 


<CSR> 


WORD COUNT OVERFLOW <ESR> 

DRIVE #1 BIT <ESR> 

DRIVE READY BIT <ESR> 

DEL. DATA BIT <ESR> 

DRIVE DENSITY <ESR> 

DENSITY ERROR <ESR> 

AC LOW BIT <ESR> 

INITIALIZE DONE BIT <ESR> 

SIDE READY BIT <ESR> 

CRC ERROR BIT <ESR> 

BUS TRAP LOC #A - TRAP HANDLER 
BUS TRAP LOC #4 - PSW 

LOGIC TEST BIT <SWREG> 

FUNCTION TEST BIT <SWREG> 

SIDE FLAG SOFT-P TABLE-<SWREG> 
INITIALIZE TRACKS FLAG 
INITIALIZE SECTORS FLAG 
SEQUENCE TRACKS FLAG 
SEQUENCE SECTORS FLAG 
RANDOM TRACKS FLAG 
RANDOM SECTORS FLAG 
ILLEGAL TRACKS FLAG 


<TKSCFG> 

<TKSCFG> 

<TKSCFG> 

<TKSCFG> 

<TKSCFG> 

<TKSCFG> 

<TKSCFG> 


FILL BUFFER CMD 
EMPTY BUFFER CMD 
WRITE SECTOR 
READ SECTOR 
SET DENSITY 
STATUS 

WRITE DELETED DATA CMD 
READ ERROR CODE CMD 
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544 

545 

546 000002 

547 000003 

548 000004 

549 000005 

550 000006 

551 000007 

rc 

;♦**** error number EQUIVALENTS 

URTERR = 2. 

RDERR = 3. 

CRCERR = 4. 

DATER = 5. 

SEKERR = 6. 

DLDERR = 7. 

***** 

WRITE ERR 

READ ERR 

CRC ERR 

DATA ERR 

SEEK ERR 

DELETED DATA ERR 

-HRD 

-HRD 

-HRD 

-HRD 

-HRD 

-HRD 

J JC 






553 






554 

000012 

FiLERR = 

10. 

FILL BUFFER ERR 

-HRD 

555 

000013 

EMPERR = 

11. 

EMPTY BUFFER ERR 

-HRD 

556 

000014 

INTNDN = 

12. 

INTERRUPT, NO DONE ERR 

-HRD 

557 

000015 

DNNINT = 

13. 

DONE, NO INTERRUPT ERR 

-HRD 

558 

000016 

ERRNST = 

14. 

ERROR NOT SET ERR 

-HRD 

559 

000017 

ILLERC = 

15. 

ILLEGAL ERROR CODE 

-HRD 

560 

000020 

DENDSK = 

16. 

DENSITY OF DISK-NOT ERR 

-HRD 

561 

000021 

RECERR = 

17. 

READ ERROR CODE ERR 

-HRD 







563 






564 

000023 

UCERR = 

19. 

WORD COUNT ERROR 

-DVCFTL 

565 

000024 

SDRDYE = 

20. 

SIDE READY 

-DVCFTL 

566 

000025 

DVROYE = 

21. 

DRIVE READY 

-DVCFTL 

567 

000026 

STDURG = 

22. 

SIDE WRONG 

-DVCFTL 

568 

000027 

DRVURG = 

23. 

DRIVE WRONG 

-DVCFTL 

569 

000030 

DENERR = 

24. 

DENSITY ERR 

-DVCFTL 

570 

000031 

DENMIX = 

25. 

DENSITY MIXED ON DISK ERR 

-DVCFTL 

571 

000032 

OLDTER = 

26. 

DELETED DATA ERR 

-DVCFTL 

572 

000033 

CSRERR = 

27. 

RXCSR-ERR 

-DVCFTL 

573 

000034 

D8RERR = 

28. 

RXESR-ERR 

-DVCFTL 

574 

000035 

STONER = 

29. 

SET DENSITY ERR 

-DVCFTL 

575 

000036 

SDKYWD = 

30. 

SET DENSITY KEYWORD (VARIFY) 

-DVCFTL 

576 

000037 

ACLOyD = 

31. 

AC LOW 

-DVCFTL 

577 

000040 

ALG02E = 

32. 

ALG02 ERROR 

-DVCFTL 

578 

000041 

TRKAER = 

33. 

TRACK ADDRESS 

-DVCFTL 

579 

con 

000042 

SECAER = 

34. 

SECTOR ADDRESS 

-DVCFTL 

)OU 




* 

m m m m ™ 

581 






582 

000050 

ACLOWF = 

40. 

AC LOW FATAL ERR 

-SYSFTL 

583 

000051 

UCOVFE = 

41. 

WORD COUNT OVERFLOW ERR 

-SYSFTL 

584 

000052 

NXMERR = 

42. 

NON-EXISTENT MEMORY ERR 

-SYSFTL 

585 

000053 

NPRERR = 

43. 

NPR LOGIC ERR 

-SYSFTL 

586 

000054 

PRILEV = 

44. 

PRIORITY LEVEL ERR 

-SYSFTL 

587 

000055 

DAT ABF = 

45. 

DATA BUFFER INTEG ERR 

-SYSFTL 

588 

000056 

HDSFOG = 

46. 

HARDWARE SELF DIAG ERR 

-SYSFTL 

589 

000057 

NOTRBT = 

47. 

"TR" BIT TIME OUT ERR 

-SYSFTL 

590 

000060 

N0DN8 T = 

48. 

’■DONE" BIT TIBIT TIME OUT ERR 

-SYSFTL 

591 

000061 

N01TDB = 

49. 

NO “UNIT DONE" BIT ERR 

-SYSFTL 

592 

000062 

NO! TOP = 

50. 

NO PROG "INIT DONE" BIT ERR 

-SYSFTL 

593 

594 

000063 

DNNOTR = 

51. 

"DONE" BIT, NO "TR" BIT 

-SYSFTL 


GLOBAL AREAS MACRO Ml 200 14-DEC-82 16:33 PAGE 10 
GLOBAL EQUATES SECTION 


597 


;*•*** FRU 

callout MESSAGE EQUIVALENTS ***** 

598 

oooooo 

INTERF = 

0 

INTERFACED 

599 

000002 

C0NTRL = 

2*1. ; F RUM1 

CONTROLLER 

600 

000004 

RUELEC = 

2*2. ;FRUH2 

R-W ELECTRONICS 

601 


PHYDRV = 

2*3. ; F RUM3 

PHYSICAL DRIVE 

602 

000010 

CABLES = 

2*4. ; FRUM4 

CABLES 

603 

000012 

P0WRSP = 

2*5. ;FRUH5 

POWER SUPPLY 

604 

000014 

DISKET = 

2*6. ;FRUM6 

DISKETTE 

605 

000016 

INTFSU = 

2*7. ;FRUM7 

INTERFACE SWITCHES 

606 

000020 

NPRJPR = 

2*8. ;FRUM8 

NPR JUMPER 

607 

000022 

C0NTSW = 

2*9. ; F RUM9 

CONTROLLER SWITCHES 

608 

000024 

INTFCB = 

2*10. ; F RUH1 0 

INTERFACE CABLE 

609 

000026 

D00R0P = 

2*11. ;FRUH11 

DOOR OPEN 

610 

000030 

DISKSP = 

2*12. ; F RUH1 2 

DISK SPINNING-DRIVE BELT 

611 

000032 

MOTOR = 

2*13. ; FRUM13 

MOTOR AC POWER NOT ROTATING 

612 

000034 

N0PUR = 

2*14. ; FRUH14 

POWER CORD. BLOWN FUSE. DRIVE POWER 

613 




CONNECTOR POWER SUPPLY FAULT. 

614 





615 


;*«»* TEST 

FLAGS REGISTER EQUIVALENTS (FLAGST) ***** 

616 

i ill 

REGCK = 

BITO 

REGISTER CHECK 

617 

fel*l I III infl ' .Mil 

DOCFLG = 

BIT1 

DOUBLE DENSITY CONTROL FLAG (DD=1> 

618 

i ill ijv^W 

DATCK = 

BIT2 

DATA CHECK 

619 

.'••’••MiSiM 

DLPDN = 

BIT3 

DO LOOP DONE 

620 

000020 

EMBUFF = 

BIT4 

EMPTY BUFFER-<USED BY DATA CHECK> 

621 

000040 

FUNTST = 

BIT5 

FUNCTION TEST FLAG 

622 

000100 

HDRPRT = 

BIT6 

ERROR CALL HEADER PRINT 

623 

000200 

RECFLG = 

BIT7 

READ ERROR CODE FLAG 

624 

001000 

TRKD0N = 

BIT9 

TRACK DONE 

625 

002000 

SECOON = 

9IT10 

SECTOR DONE 

626 

004000 

NEGTST = 

BIT11 

NEGATIVE TEST FLAG 

627 

010000 

ILLGAL = 

BIT12 

ILLEGAL FLAG 

628 

020000 

CKERR = 

BIT13 

CHECK ERROR WORDS FLAG 

629 

040000 

HROERR = 

BIT14 

HARD ERROR 

630 

[ • 1 1 1 1 1 1 1 • Mmmmmm 

ERRFLG = 

BIT15 

ERROR 

631 





632 


;***•* PROGRAM/PRINT FLAGS REGISTER E0UIV (FLAGSP) ***** 

633 





634 

000001 

TKPRT = 

BITO 

TRACKS PRINT 

635 

000002 

SCPRT = 

BIT1 

SECTORS PRINT 

636 

000004 

RGPRT = 

BIT2 

REGISTERS PRINT 

637 

000010 

PROPRT = 

BIT3 

PROTOCAL LEVEL PRINT 

638 

000100 

HDRPRT = 

BIT6 

HEADER PRINT 

639 

000200 

RECTST = 

BIT7 

ERROR CODE TEST (INVOKE ERROR CODE) 

640 

000400 

LSIFLG = 

BIT8 

LSI FLAG 

641 

010000 

FONZFG = 

BIT12 

FONZ FLAG 

64 2 

040000 

RESFLG = 

BIT14 

RESTART FLAG 

643 

100000 

STAFLG = 

8IT15 

START FLAG 

644 





645 


;*•*** "SYS 

ERR" t "TYP ERR" REGISTER EQUIVALENTS ***** 

646 





647 

000020 

CMDERR = 

BIT4 

COMMAND ERROR 

648 

004000 

DVFERR = 

BIT11 

DEVICE FATAL ERROR 

649 

002000 

SVFERR = 

BIT10 

SYSTEM FATAL ERROR 

650 
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664 

665 

666 

667 

668 

669 

670 

671 
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SEC 33 


708 

709 

710 

711 


. SBTTL GLOBAL DATA SECTION 




THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
IN MORE THAN ONE TEST. 

STORAGE FOR DEVICE REGISTERS 


U f u 

677 

002330 

000000 

RXCS: 

.WORD 

0 

UNIT BUS ADR-CSR 

<UUT *> 


678 

002352 

00235' 

000000 

RXDB: 

.WORD 

0 

UNIT BUS ADR-DBR 

<UUT *> 


679 

000000 

VECT: 

.WORD 

0 

UNIT VECTOR 

<UUT *> 


680 

0023s , 

000000 

RXPRI: 

.WORD 

0 

PRIORITY FOR DEVICE INTERRUPTS <UUT *> 

DEVICE 

681 

0023oG 

000000 

EMPADR: 

.WORD 

0 

EMPTY BUFFER ADDRESS 



682 

002362 

000000 

FILADR: 

.WORD 

0 

FILL BUFFER ADDRESS 



683 

002364 

000000 

RE C ADR: 

.WORD 

0 

READ ERROR CODE ADDRESS 


PARAMETERS 

684 

002366 

oooooc 

EXTADR: 

.WORD 

0 

EXTENDED ADDRESS (BITS: #12 g #13) 


685 

002370 

000000 

UDCNT: 

.WORD 

0 

WORD COUNT 



686 

002372 

000000 

VARIFY: 

.WORD 

0 

VARIFY WORD 



687 

002374 

000000 

TRACK: 

.WORD 

0 

TRACK ADR 



688 

689 

690 

002376 

000000 

SECTOR: 

.WORD 

0 

SECTOR ADR 



002400 

000000 

CMD: 

.WORD 

0 

COMMAND WORD-TO DEVICF 



691 

002402 

000000 

DELDAT: 

.WORD 

0 

DELETED DATA FLAG g WORD 

<CMD> 

COMMAND 

692 

002404 

000000 

INTERT: 

.WORD 

0 

INTERRUPT WORD 

<CMD> 


693 

002406 

000000 

DRIVE: 

.WORD 

0 

DRIVE WORD 

<CMD*> 


694 

002410 

000000 

SIDE: 

.WORD 

0 

SIDE WORD 

<CHD*> 

PARAMETERS 

695 

002412 

000000 

DENSTV: 

.WORD 

0 

DENSITY CONTROL WORD 

<CND> 


696 

002414 

000000 

DENSTA: 

.WORD 

0 

DENSITY STATUS WORD-DRIVE 

DENSITY 


697 

002416 

000000 

PRIORT: 

.WORD 

0 

; PRIORITY OF INTERRUPT HANDLER-WATCH DOG 


698 

699 

700 

002420 

000000 

DRVOFF : 

.WORD 

0 

; DRIVE BYTE OFFSET 



002422 

000000 

ERRCMD: 

.WORD 

0 

ERROR COMMAND 


DEVICE 

701 

002424 

000000 

LCHD: 

.WORD 

0 

LAST COMMAND 


ERRLR 

702 

002426 

000000 

LRXCSR: 

.WORD 

0 

LAST RX CSR STORAGE 



703 

002430 

000000 

LRXESR: 

.WORD 

0 

LAST RX ESR STORAGE 


g 

704 

002432 

000000 

RXCSR: 

.WORD 

0 

RX CSR STORAGE 



705 

002434 

000000 

RXESR: 

.WORD 

0 

RX ESR STORAGE 


STATUS 

706 

002436 

000000 

REGEXP: 

.WORD 

0 

REGISTER EXPECTED 


INFO 

707 

002440 

000000 

REGACT: 

.WORD 

0 

REGISTER ACTUAL 




* = INFO FROM HARDWARE P-TA8LES 


712 

713 


.SBTTL 

- READ 

ERROR CODE BUFFER 

f Im 

715 002442 

000 

XERUUT: 

.BYTE 

0 

ERROR CODE UUT 

716 002443 

000 

WC: 

.BYTE 

0 

WORD COUNT UUT 

717 002444 

000 

CTKC. 

.BYTE 

0 

CUR TRK DRV#0 

718 002445 

000 

CTK1: 

.BYTE 

0 

CUR TRK DRV#1 

719 002446 

UOO 

TTRK: 

.BYTE 

0 

TARGET TRACK 

720 002447 

000 

TSEC: 

.BYTE 

0 

TARGET SECTOR 

721 002450 

000 

SFTSTS: 

.BYTE 

0 

MICRO CODE SOFT STATUS 

722 002451 

000 

BTRK: 

.BYTE 

0 

BAD TRACK ADR (ONLY APPLIES IF ERR CODE = 150 


723 



SEG 34 
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759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 
78C 

781 

782 


725 





726 002452 

000000 

ABORT: 

.WORD 

0 

727 002454 

000000 

FIN: 

.WORD 

0 

728 002456 

000000 

SYSERR: 

.WORD 

0 

729 002460 

OOOOGO 

TYPERR: 

.WORD 

0 

730 002462 

000000 

RECERN: 

.WORD 

0 

731 002464 

000000 

NGTSER: 

.WORD 

0 

732 





733 002466 

000000 

TSTID: 

.WORD 

0 

734 002470 

000000 

TCMDCT : 

.WORD 

0 

735 002472 

000000 

PROTCT : 

.WORD 

0 

736 002474 

000004 

DNWTMT: 

.WORD 

4 

737 



........ 


738 002476 

000000 

FLAGST: 

.WORD 

C 

739 002500 

000000 

FLAGSP: 

.WORD 

0 

740 002502 

000004 

FLGDRS: 

.WORD 

4 

741 002504 

000000 

T TEMPI: 

.WORD 

0 

742 002506 

000000 

TSAVE1 : 

.WORD 

0 

743 002510 

000000 

TKSCFG: 

.WORD 

0 

744 





745 002512 

000000 

UNTPRT: 

.WORD 

0 

746 002514 

000 

DRVPRT: 

.BYTE 

0 

747 002515 

000 

SIDPRT : 

.BYTE 

0 

748 





757 002516 


ERRTBL 



002516 

000000 

ERRTYP: 


.WORD 

002520 

000000 

ERRN8R: 


.WORD 

002522 

000000 

ERRMSG: 


.WORD 

002524 

000000 

ERRBLK: 


.WORD 


ABORT FLAG 
F INI COMMAND FLAG 
SYSTEM ERROR 
TYPE ERROR 

READ ERROR CODE-ERROR NUMBER 
NEC TEST EXPECTED ERROR 


TEST IDENT WORD 
TEST COMMAND COUNTER 
PROTOCAL COUNT 
DONE WAIT MULTIPLIER 


SOFTWARE TEST fLAGS -> SEE BELOW 
SOFTWARE PROG/PRT FLAGS— >SEE BELOW 
FLAGS FROM ‘DRS*’ 

TEST TEMP 1 
TEST SAVE 1 

TRACK l SECTORS FLAGS — > SEE BELOW 


UNIT f-PRINT 
DRIVE f-PRINT 
SIDE #-PRINT 


TEST 

ERROR 

& 

STATUS 

INFO 


TEST 

INFO 


TEST 

CONTROL 

FLAGS 


DEVICE 

PRINT 


0 

0 

0 

0 


***** SOFTWARE REGISTER DEFINITIONS 


i i i • i 

! 15 ! 14 ! 13 ! 12 ! 11 ! 10 ! 09 ! 08 ! 07 ! 06 ! 05 ! 04 ! 03 *! 02 ! 01 ! 00 

I...*...*...*...*....*...*'*..*...*....*.— ♦— 

!ERR!ERR!DON! ITR!WRT! RD!FIL!UNK! ! DO! DD! ! ! CK! ! 

TYPERR: ! BIT .'NOT! NO! NO!EAR!ERR!EMP!ERR! - !HIS!UNX!CHD!DAT!SUN!SEK!CRC 
_!_ !SET!ITR!DON! _ ! ERR ! !__ ! _ !__ !ERR! ! ! ! 

” ’*' ' ' ' ' •’ ~! "wRONG~ !TR ! ilD ! DRV ! NODONE ! "FUNCTION" 


SYSERR 

flagIt 

FLAGSP 

tkIcfg 

sssss 

NOTE: 


!UNf ! DEN ! ! OVF ! SYF ! ! TO !RDY!RDY! ! CAUSING 

!ERR! ! ERR ! !ERR!ERR!SID!DRV!ERR!ERR!ERR!FUN!INT! ERROR 

:4=r:i:r:f:=:t:::i=::^ciS'fzs»:z:is:ri=z;i::3i=::i===t;==t===i:=; 

!ERR!HRD! CK!ILL!NEG!SEC!TRK!RTY!REC!FDR!FUN!EMB!DLP!DAT!DDC!REG 
!FLG!ERR!ERR!GAL!TST!DON!DON!ENB!FLG!PRT!TST!UFF!DN ! CK! FLG ! CK 

:::zzz:z::z:::z:tizz:zz»eiz:::siEZZZZzzz::z:zz:z:z:z:::;:z;::;:= 

! STA ! RES ! !LS1!REC!H0R! ! !PRO!RG ! SC !TK 

! FLG ! FLG! !FLG!T$T!PRT! ! !PRT!PRT!PRT!PRT 

:z;:zx:zz3z:z:zz3zzi3zz>izzzzii(t:xzzizzz::z::zzz:::::z::z::z:;:: 
i I I I i I • » I » i l I I i 

• • i • ■ » » 4 « I • • % • • 

i i i i i i i cr i Tit * i i i i 

• •••••• vV • *1% • • • • • 

:zzzz:c:t:t;zitzz»tziiziiitzztt((zz:z:::z:x::::: 

RXXX IS REFERENCE FOR FURTHER EXPANSION 


!IL ! S ! S 
!U JSC !TK 
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798 

799 

800 
80 1 
802 

803 

804 

805 

806 

807 

808 
809 

815 

816 

817 

818 
819 
826 
8 27 
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.SBTTl GLOBAL TEXT SECTION 

; + THE GLOBAL 1 EXT SECTION CONTAINS FORMAT STATEMENTS. 
; MESSAGES. AND ASCII INFORMATION THAT ARE USED IN 
; MORE THAN ONE TEST. 


NAMES OF DEVICES SUPPORTED BY PROGRAM 


FORMAT STATEMENTS USED IN PRINT CALLS 


GLOBAL AREAS MACRO Ml 200 
GLOBAL ERROR REPORT SECTION 
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837 

838 

839 
RAO 
8A1 
8A2 
8A3 
84 A 
8A5 
8A6 
8A7 
8^8 
8A9 

850 

851 

852 

853 
85A 

855 

856 

857 

858 

859 

860 
861 
862 
863 
86A 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 
881 
8 82 

883 

884 

885 

886 

887 

888 


.S8TTL GLOBAL ERROR REPORT SECTION 
; ♦♦ 

; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 
; THAT ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 
; THAT ARE USED BY THE PRINTB AND PRINTX CALLS.. 


002526 

002526 

002532 

004737 002550 

BGNMSG 

CALL 

ENDMSG 

PRTBO 

PRTBOS 


002534 

002534 

002540 

004737 002570 

BGNMSG 

CALL 

ENDMSG 

PRTB1 

PRTB1S 


002542 

002542 

002546 

004737 002612 

BGNMSG 

CALL 

ENDMSG 

PRTB2 

PRTB2S 


002550 

002566 

000207 

PRTBOS: PRINTB 
RETURN 

R1 

.-RETURN 

002570 

002610 

000207 

PRTB1S: PRINTB 
RETURN 

R1.R2 

.•RETURN 

002612 

002634 

000207 

PRTB2S: PRINTB 
RETURN 

R1.R2.R3 

.•RETURN 

002636 

002662 

000207 

PRTB3S: PRINTS 
RETURN 

R1 .R2.R3.R4 

.•RETURN 

002664 

002712 

000207 

PRTB4S: PRINTB 
RETURN 

R1,R2,R3.R4.R5 

.•RETURN 

002714 

002732 

000207 

PRTXOS: PRINTX 
RETURN 

R1 


002734 

002754 

000207 

PRTX1S: PRINTX 
RETURN 

R1.R2 


002756 

003000 

000207 

PRTX2S: PRINTX 
RETURN 

R1.R2.R3 


003002 

003026 

000207 

PRTX3S: PRINTX 
RETURN 

R1 .R2.R3.R4 


003030 

003056 

000207 

PRTX4S: PRINTX 
RETURN 

R1.R2.R3.R4.R5 
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- MOD U. ERR. ERR - ERROR 


891 

. SBTTL - 

MOD U 

.ERR. ERR - ERROR 

O VC 

893 

; BGNSUB 


ERR 

894 

IF ERR 

YBR NOT-0 

895 

• 

THEN 

-SET ERR SAVE = ERR NUMBER 

896 

• 


CALL ERROR NUMBER EVALUATION 

897 

• 


SETUP ERROR BLOCK CODE ADDRESS 

898 

• 


CALL PRINT ERROR TYPE 

899 

• 


IF PROGRAM FLAGS-PRT REGS ???? SET 

900 

• 


THEN-1F ERRNBR=CSR ERROR 

901 

• 



: THEN-CALL PRINT REGS 

902 

■ 



ENDIF 

903 

• 


END IF 

904 

• 


IF COMMAND ERROR SET IN TYPERR 

905 

• 



THEN-CALL PRINT COMMAND ERROR 

906 

• 


ENDIF 

907 

• 


IF FUNCTION TEST NOT SET 

908 

• 



THEN-IF PRINT FLAGS-REGS PRINT 

909 

• 



: THEN-CALL REGISTERS PRINT 

910 

• 



ENDIF 

911 

i 



IF PRINT FLAG=SECTOR PRINT 

912 

• 

» 


: THEN-CALL SECTOR PRINT 

913 

t 



ENDIF 

914 

• 



IF PRINT FLAG=TRACK PRINT 

915 

• 

1 


: THEN-CALL TRACKS PRINT 

916 

m 

§ 



ENDIF 

917 

• 



CALL PRINT FRU 

918 

• 



CALL PRINT UNIT STATUS 

919 

• 



ELSE-IF SWITCH REGISTER BIT #14 SET 

920 

• 



: THEN-CALL PRINT UNIT STATUS 

921 

• 



ENDIF 

922 

• 


ENDIF 

923 

• 


IF ERR SAVE = ERR OLD 

924 

• 



THEN - INCREMENT ERROR CTR 

925 

■ 



IF ERROR CTR = 10 ERRORS 

926 

• 



: THEN - SET ABORT = 20 

927 

• 



ENDIF 

928 

• 



ELSE - SET ERR OLD s ERR SAVE 

929 

• 



CLEAR ERR SAVE 

930 




CLEAR ERR CTR 

931 



ENDIF 

932 



CALL CLEAR ERRORS 

933 

; END IF 



934 

935 

; ENDSU8 





tn 


CJ3 

m 


CB] 


CA] 

CE3 


CG3 

CCD 


CD3 

CK] 
CL 3 



M 3 
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- MOD U. ERR. ERR - ERROR 


938 

003060 

000240 



ERROR: 

NOP 



939 

003062 

005737 

002520 


IFERR: 

TST 

ERRNBR 

IF ERR NBR. 

940 

003066 

001520 




8EQ 

EFERR 

N0T=0. THEN 

941 

003070 

013737 

002520 

003336 


MOV 

ERRNBR, ERRSAV 

SAVE ERROR NUMBER 

942 

003076 

004737 

003344 



CALL 

ERNBEV 

CALL ERROR NUMBER EVALUATION 

943 

003102 

012737 

003502 

002524 


MOV 

#ERIDNT,ERRBLK 

SETUP ERROR BLOCK CODE ADDRESS 

94s 

003110 

004737 

003474 



CALL 

pterty 

CALL PRINT ERROR TYPE 

94 5 

003114 

032737 

000004 

002500 

IJERR: 

BIT 

#RGPRT,FLAGSP 

IF PROGRAM FLAG-PRT FLAG 

946 

003122 

001006 




BNE 

IBERR 

NOT SET, THEN 

947 

003124 

022737 

000033 

002520 

IIERR: 

CMP 

fCSRERR, ERRNBR 

IF CSR ERR 

948 

003132 

001002 




BNE 

IBERR 

THEN, 

949 

003134 

004737 

007564 



CALL 

PRTREG 

CALL PRINT REGS 

950 

003140 

032737 

000020 

002460 

IBERR: 

BIT 

#CMDERR,TYPERR 

IF TYPERR-COMMAND ERROR 

951 

003146 

001402 




8EQ 

IAERR 

SET. THEN 

952 

003150 

004737 

007040 



CALL 

PRTCDE 

CALL PRINT COMMAND ERRORS 

953 

003154 

032737 

000040 

002476 

IAERR: 

BIT 

#FUNTST,FLAGST 

IF FLAGS-FUNCTION TEST 

954 

003162 

001027 




BNE 

IDERR 

NOT SET, THEN 

955 

003164 

032737 

C00004 

002500 

IEERR: 

BIT 

fRGPRT.FLAGSP 

IF PROGRAM FLAGS=REGS PRINT 

956 

003172 

001402 




BEQ 

IGERR 

THEN 

957 

003174 

004737 

007564 



CALL 

PRTREG 

CALL PRINT REGS 

958 

003200 

032737 

000002 

002500 

IGERR: 

BIT 

#SCPRT,FlAGSP 

IF PROGRAM FLAG=SFCTOR 

959 

003206 

001402 




BEQ 

ICERR 

BIT SET, THEN 

960 

003210 

004737 

007674 



CALL 

PRTSEC 


961 

003214 

032737 

000001 

002500 

ICERR: 

BIT 

#TKPRT,FLAGSP 

IF PROGRAM FLAGS=TRK PRINT 

962 

003222 

001402 




BEQ 

ECERR 

BIT SET, THEN 

963 

003224 

004737 

010002 



CALL 

PRTTRK 

CALL PRINT TRACKS 

964 

003230 

004737 

005404 


ECERR: 

CALL 

PRTFRU 

CALL PRINT FRU 

965 

003234 

004737 

015240 



CALL 

PRTSTA 

CALL PRINT UNIT STATUS 

966 

003240 

000406 




BR 

EAERR 

BR TO END ’A* 

967 

003242 

032737 

040000 

002332 

IDERR: 

BIT 

#BIT14,SUREG 

IF SWITCH REG BIT 14 

968 

003250 

001402 




3EQ 

EAERR 

SET, THEN 

969 

003252 

004737 

015240 



CALL 

PRTSTA 

CALL PRINT UNIT STATUS 

970 

003256 

000240 



EAERR: 

NOP 



971 

003260 

023737 

003336 

003340 

IKERR: 

CMP 

ERRSAV, ERROLD 

IF SAVED ERR & OLD ERR 

972 

003266 

001011 




BNE 

LKERR 

EQUAL. THEN 

973 

003270 

005237 

003342 



INC 

ERRCTR 

INCREMENT ERR CTR 

974 

003274 

022737 

000012 

003342 

ILERR: 

CMP 

#10., ERRCTR 

IF 10 ERRS OF SAME KIND 

975 

003302 

012737 

000020 

002452 


MOV 

#20, ABORT 

SET ABORT FLAG 

976 

003310 

000407 




BR 

EFERR 

BR TO END , F' 

977 

003312 

013737 

003336 

003340 

LKERR: 

MOV 

ERRSAV, ERROLD 

SETUP OLD ERR FOR NEXT CK 

978 

003320 

005037 

003336 



CLR 

ERRSAV 

CLEAR OUT SAVED ERR 

979 

003324 

005037 

003342 



CLR 

ERRCTR 

CLEAR ERR CTR 

980 

003330 

004737 

010300 


EFERR: 

CALL 

CLRERR 

CALL CLEAR ERRORS 

981 

Ofi 

003334 

000207 



XERROR: 

RETURN 


RETURN 

TO C 

983 

003336 

000000 



ERRSAV: 

0 


SAVED ERR 

984 

003340 

000000 



ERROLD: 

0 


OLD ERR 

985 

986 

003342 

000000 



ERRCTR: 

0 


ERR CTR 



N 3 


SEC 39 
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- MOD U.SFT.ENV - ERROR NUMBER EVALUATION 


994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 
1019 


.SBTTL - MOD U.SFT.ENV - ERROR NUMBER EVALUATION 


BGNSUB 


ENDSUB 


IF ERR NBR > 39. 

THEN-SET SYSTEM FATAL ERR->ERRTYP 
ELSE 

IF ERR NBR > 19. 

THEN-SET DEVICE FATAL ERR->ERRTYP 
ELSE 

IF ERR NBR > 0. 

: THEN-SET HARD ERR->ERRTYP 
: ENDIF 

ENDIF 

ENDIF 

ENDIF 

IF ERRTYP=HARD ERROR 
THEN- 

IF EVAL SET IN DRS FLAGS 

THEN-INCREMENT HARD ERR THRESHOLD LEVEL 
IF HARD ERR THRESHOLD LEVEL=SET LEVEL 
: THEN-SET DEV FATAL ERR->ERRTYP 
ENDIF 

ENDIF 

ENDIF 


CA] 

CBD 

CD3 


in 

CG3 

CH3 


1020 

003344 

000240 



ERNBEV: 

NOP 

#39.,ERRNBR 


"021 

003346 

022737 

000047 

002520 

IAENV: 

CMP 

IF ERR NBR > 39. 

1022 

003354 

101003 




BHI 

IBENV 

THEN 

1023 

003356 

005037 

002516 



CLR 

ERRTYP 

SET ERRTYP=SYS FTL 

1024 

003362 

000416 




BR 

IFENV 

BR TO IF ’F* 

1025 

003364 

022737 

000023 

002520 

IBENV: 

CMP 

*19.,ERRNBR 

IF ERR NBR > 19. 

1026 

003372 

101004 




BHI 

IDENV 

THEN 

1027 

003374 

012737 

000001 

002516 


MOV 

#1. ERRTYP 

SET ERRTYP=DVC FTL 

BR TO IF *F' 

1028 

003402 

000406 




BR 

IFENV 

1029 

003404 

005737 

002520 


IDENV: 

TST 

ERRNBR 

IF ERR NBR > 0 

1030 

003410 

001403 




BEQ 

IFENV 

THEN 

1031 

003412 

012737 

000002 

002516 


MOV 

#2, ERRTYP 

SET ERRTYP=HARD ERR 

1032 

003420 

022737 

000002 

002516 

IFENV: 

CMP 

#2, ERRTYP 

IF ERRTYP = HARD ERR 

1033 

003426 

001017 




BNE 

EFENV 

THEN 

1034 

003430 

032737 

000004 

002502 

IGENV: 

BIT 

#BIT2,FLGDRS 

IF EVAL IN DRS FLAGS 

1035 

003436 

001413 




BEQ 

EFENV 

SET, THEN 

1036 

003440 

005237 

003472 



INC 

HETLCT 

INCREMENT HARD ERR THRESHOLD LEVEL CTR 

1037 

003444 

023737 

002320 

003472 

IHENV: 

CMP 

DVTL. HETLCT 

IF DEVICE FTL THRES LVL=SFT LEV 

1038 

003452 

101005 




BHI 

EFENV 

THEN 

1039 

003454 

012737 

000001 

002516 


MOV 

#1 , ERRTYP 

SET ERRTYP=DEV FTL ERR 

1040 

003462 

005037 

003472 



CLR 

HETLCT 

CLEAR HARD ERR THRES LVL CTR 

1041 

003466 

000240 



EFENV: 

NOP 



1042 

in/, t 

003470 

000207 



XERNBE: 

RETURN 


RETURN 

11**0 









1044 

003472 

000000 



HETLCT: 

6 


HARD ERROR THRESHOLD LEVEL CTR 


1045 



B 4 


SEG 40 
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- MOD U.PRT.PET - PRINT ERROR TYPE 


1048 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1120 
1121 
1122 

1123 

1124 

1125 

1126 
112? 
1128 

1129 

1130 

1131 

1132 

1133 


SBTTL - MOD U.PRT.PET - PRINT ERROR TYPE 




BGNSUB 

CALL ERROR - REVC 

ENDSU6 

003474 

000240 

J TERTY: NOP 


003476 


ERROR 


003500 

000207 

RETURN 

.•RETURN 



SBTTL - MOD U. ERR. IDT - 

GET g PRINT ERROR IDENTIFICATION MESSAGE 


BGNMSG ER1DENT 

LET R1=ERR0R # 

DOUBLE R1 FOR ADDRESSING - MESSAGE OFFSET 
LET R1=ERR MSG TABLE ADD ♦ MESSAGE OFFSET 
PRINT BASIC R1 

PUT MESSAGE TABLE ADDRESS IN R1 
PRINT BASIC R1 

ENDMSG 


1134 

003502 



BGNMSG 

ERIDNT 


1135 

003502 

013701 

002520 

MOV 

ERRNBR.R1 

GET ERR # 

1136 

003506 

006301 


ASL 

R1 

DOUBLE IT FOR ADDRESSING 

1137 

003510 

000240 


NOP 



1138 

003512 

016101 

003534 

MOV 

ERMSTBCR1 ) ,R1 

GET ERR MSG ADR 'ROM TABLE 

1139 

003516 

004737 

002550 

CALL 

PRTBOS 

CALL PRINT BASIC NO ARG 

1140 

003522 

013701 

003534 

MOV 

ERMSTB.R1 

GET RES1 OF ERR MSG FROM TABLE 

1141 

003526 

004737 

002550 

CALL 

PRTBOS 

CALL PRINT BASIC NO ARG 

1142 

003532 



ENDMSG 




1143 



C 4 


SEQ 41 
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- MOD U. ERR. IDT - GET i PRINT ERROR IDENTIFICATION MESSAGE 


1146 

1147 

1148 



; ERROR MESSAGE TABLE 


ERROR DESCRIPTION 

-CLASS 

003534 

003706 

ERMSTB: .WORD 

ERMSO 

ERROR 



1149 

003536 

003706 

.WORD 

ERMSO 

ERR#G 



1150 

003540 

003717 

.WORD 

ERMS2 

ERR#2 

.•WRITE 

-HARD 

1151 

003542 

003731 

.WORD 

ERMS3 

ERR#3 

.-READ 

-HARD 

115? 

003544 

003742 

.WORD 

ERMS4 

ERR#4 

;CRC 

-HARD 

1153 

003546 

003752 

.WORD 

ERMS5 

ERR#5 

.•DATA ERR 

-HARD 

1154 

003550 

003763 

.WORD 

ERMS6 

ERR#6 

.‘SEEK 

-HARD 

1155 

003552 

003774 

.WORD 

ERMS7 

ERR#7 

;DEL DATA 

-HARD 

1156 

003554 

003706 

.WORD 

ERMSO 

ERR#8 


-HARD 

1157 

003556 

003706 

.WORD 

ERMSO 

ERR#9 


-HARD 

1158 

003560 

004015 

.WORD 

ERMS10 

ERR#10 

.-FILL BUFFER 

-HARD 

1159 

003562 

004035 

.WORD 

ERMS11 

ERR#1 1 

.•EMPTY BUFFER 

-HARD 

1160 

003564 

004056 

.WORD 

ERMS12 

ERR#12 

.-INTR-NO DONE 

-HARD 

1161 

003566 

004112 

.WORD 

ERMS13 

ERR#13 

.-DONE-NO INTR 

-HARD 

1162 

003570 

004146 

.WORD 

ERMS14 

ERR#14 

.-ERR-NOT SET 

-HARD 

1163 

003572 

004177 

.WORD 

ERMS15 

ERR#15 

;ILLEG ERR CODE 

-HARD 

1164 

003574 

004226 

.WORD 

ERMS16 

ERR#16 

.‘DISK DENSITY MIXED OR WRG 

-HARD 

1165 

003576 

004264 

.WORD 

ERMS17 

ERR#17 

.•READ ERROR CODE-ERROR WRG 

-HARD 

1166 

003600 

003706 

.WORD 

ERMSO 

ERR#18 



1167 

003602 

004314 

.WORD 

ERMS19 

ERR#19 

.•WORD COUNT 


1168 

003604 

004333 

.WORD 

ERMS20 

ERR#20 

.•SIDE NOT m 

-DEVFTL 

1169 

003606 

004356 

.WORD 

ERMS21 

ERR#21 

.‘DRIVE NOT RDY 

-DEVFTL 

1170 

003610 

004402 

.WORD 

ERMS22 

ERR#22 

.-SIDE RESPONDING WRG 

-DEVFTL 

1171 

003612 

004434 

.WORD 

ERMS23 

ERR#23 

.•DRIVE RESPONDING WRG 

-DEVFTL 

1172 

003614 

004467 

.WORD 

ERMS24 

ERR#24 

.•DENSITY 

-DEVFTL 

1173 

003616 

004503 

.WORD 

ERMS25 

ERR#25 

.•DENSITY DISK 

-DEVFTL 

1174 

003620 

004532 

.WORD 

ERMS26 

E RR#26 

.-DEL DATA 

-DEVFTL 

1175 

003622 

004553 

.WORD 

ERMS27 

ERR#27 

;CSR 

-DEVFTL 

1176 

003624 

004564 

.WORD 

ERMS28 

ERR#28 

;D8R 

-DEVFTL 

1177 

003626 

003706 

.WORD 

ERMSO 

ERR#29 


-DEVFTL 

1178 

003630 

004625 

.WORD 

ERMS30 

ER«#30 

.-SET DENSITY KEYWORD 

-DEVFTL 

1179 

003632 

004655 

.WORD 

ERMS31 

ERR#31 

;AC LOW 

-DEVFTL 

1180 

003634 

004670 

.WORD 

ERHS32 

ERR# 32 

.-ALG02 

-DEVFTL 

1181 

003636 

004711 

.WORD 

ERMS33 

ERR#33 

.•TRACK ADDRESS 

-DEVFTL 

118? 

003640 

004733 

.WORD 

ERMS34 

ERR# 34 

.SECTOR ADDRESS 

-DEVFTL 

1183 

003642 

003706 

.WORD 

ERMSO 

ERR#35 



1184 

003644 

003706 

.WORD 

ERMSO 

ER»#36 



1185 

003646 

003706 

.WORD 

ERMSO 

ERR#37 



1186 

003650 

003706 

.WORD 

ERMSO 

ERR#38 



1187 

003652 

003706 

.WORD 

ERMSO 

ERR#39 



1188 

003654 

004756 

.WORD 

ERMS40 

ERR#40 

;AC LOW FATAL 

-SYSFTL 

1189 

003656 

004777 

.WORD 

ERMS41 

ERR#41 

.‘WORD COUNT OVERFLOW 

-SYSFTL 

1190 

003660 

005027 

.WORD 

ERMS42 

ERR#42 

.NON-EXISTENT MEM 

-SYSFTL 

1191 

003662 

005054 

.WORD 

ERHS43 

ERR#43 

.-NON PROCESSOR REQUEST 

-SYSFTL 

1192 

003664 

005102 

.WORD 

ERMS44 

ERR#44 

.•PRIORITY LEVEL 

-SYSFTL 

1193 

003666 

005125 

.WORD 

ERMS45 

ER8#45 

.‘DATA BUFFER INTEG 

-SYSFTL 

1194 

003670 

005153 

.WORD 

ERMS46 

ERR#46 

.•HARDWARE SELF DIAG 
;"TR" BIT TIME OUT 
.•"DONE’* BIT TIME OUT 

-SYSFTL 

1195 

001672 

005202 

.WORD 

ERMS47 

ERR#47 

-SYSFTL 

1196 

003674 

005230 

.WORD 

ERMS48 

ERR#48 

-SYSFTL 

1197 

003676 

005260 

.WORD 

ERMS49 

ERR#49 

;N0 BUS "INIT DONE" 

-SYSFTL 

1198 

003700 

005307 

.WORD 

ERMS50 

ERR#50 

;N0 PROG "INIT DONE" 

.-"DONE" SET->WAITING FOR "TR" 

-SYSFTL 

1199 

003702 

005337 

.WORD 

ERHS51 

ERR#51 

BIT-SYSFTL 

1200 

1201 

003704 

003706 

.WORD 

ERMSO 

ERR#52 


-SYSFTL 
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ERROR MESSAGES 


I 


1204 




.SBTTL 

1205 




• 

1206 003706 

045 

101 

040 

ERMSO: 

1207 




;ERMS1 : 

1208 003717 

045 

101 

040 

ERMS2: 

1209 003731 

045 

101 

040 

ERMS3: 

1210 003742 

045 

101 

040 

ERMS4: 

1211 003752 

045 

101 

040 

ERMS5: 

1212 003763 

045 

101 

040 

ERMS6: 

1213 003774 

045 

101 

040 

ERMS7: 

1214 




;ERMS8: 

1215 




;ERMS9: 

1216 004015 

045 

101 

040 

ERMS10: 

1217 004035 

045 

101 

040 

ERMS11: 

1218 004056 

045 

101 

040 

ERMS12: 

1219 004112 

045 

101 

040 

ERMS13: 

1220 004146 

045 

101 

040 

ERMS14: 

1221 004177 

045 

101 

040 

ERMS15: 

1222 004226 

045 

101 

040 

ERMS16: 

1223 004264 

045 

101 

040 

ERMS17: 

1224 




;ERMS18 

1225 004314 

045 

101 

040 

ERMS19: 

1226 004333 

045 

101 

040 

ERMS20: 

1227 004356 

045 

101 

040 

ERMS21 : 

1228 004402 

045 

101 

040 

ERMS22: 

1229 004434 

045 

101 

040 

ERMS23: 

1230 004467 

045 

101 

040 

E RMS 24: 

1231 004503 

045 

101 

040 

ERMS25: 

1232 004532 

045 

101 

040 

ERMS26: 

1233 004553 

045 

101 

04 0 

ERMS27: 

1234 004564 

045 

101 

040 

ERMS28: 

1235 004575 

045 

101 

040 

ERMS29: 

1236 004625 

045 

101 

040 

ERHS30: 

1237 004655 

045 

101 

040 

ERMS31 : 

1238 004670 

045 

101 

040 

ERMS32: 

1239 004711 

045 

101 

040 

ERMS33: 

1240 004733 

045 

101 

040 

ERMS34: 

1241 




;ERMS35 

1242 




;ERNS36 

1243 




;ERMS37 

1244 




;ERMS38 

1245 




;ERMS39 

1246 004756 

045 

101 

040 

ERMS40: 

1247 004777 

045 

101 

040 

ERMS41 : 

1248 005027 

045 

101 

040 

ERMS42: 

1249 005054 

045 

101 

040 

ERMS43: 

1250 005102 

045 

101 

040 

ERMS44 : 

1251 005125 

045 

101 

040 

ERMS45: 

1252 005153 

045 

101 

040 

ERMS46: 

1253 005202 

045 

101 

040 

ERNS47: 

1254 005230 

045 

101 

040 

ERMS48: 

1255 005260 

045 

101 

040 

ERMS49: 

1256 005307 

045 

101 

040 

ERNS50: 

1257 0053 77 

045 

101 

040 

ERMS51 : 

1258 




;ERMS52 

1259 





1260 






0 A 


EO 42 
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ERROR MESSAGES 


.ASCIZ /XA ERROR/ 

.ASCIZ /XA 1 ?/ 

.ASCIZ /XA WRITE/ 

.ASCIZ /XA READ/ 

.ASCIZ /XA CRC / 

.ASCIZ /XA DATA/ 

.ASCIZ /XA SEEK/ 

•ASCIZ /XA DELETED DATA/ 

.ASCIZ /XA 8 ?/ 

.ASCIZ /XA 9 ?/ 

.ASCIZ /XA FILL BUFFER/ 

.ASCIZ /XA EMPTY BUFFER/ 

.ASCIZ /XA INTERRUPT-NO "DONE" BIT/ 

.ASCIZ /XA "DONE" 9IT-N0 INTERRUPT/ 

.ASCIZ /XA ERROR BIT NOT SET-ON/ 

.ASCIZ /XA ILLEGAL ERROR CODE/ 

.ASCIZ /XA DISK DENSITY MIXED OR WRG/ 

.ASCIZ /XA RD ERR CODE-ERR WRG/ 

.ASCIZ /XA 18 ?/ 

.ASCIZ /XA WORD COUNT/ 

.ASCIZ /XA SIDE NOT READY/ 

.ASCIZ /XA DRIVE NOT READY/ 

.ASCIZ /XA WRONG SIDE RESPONDING/ 

.ASCIZ /XA WRONG DRIVE RESPONDING/ 

.ASCIZ /XA DENSITY/ 

.ASCIZ /XA DISK-MIXED DENSITY/ 

.ASCIZ /XA DELETED DATA/ 

.ASCIZ /XA CSR-/ 

.ASCIZ /XA DBR-/ 

.ASCIZ /XA DENSITY DID NOT SET/ 

.ASCIZ /XA SET DENSITY KEYWORD/ 

.ASCIZ /XA AC LOW/ 

.ASCIZ /XA ALG02 FAILED/ 

.ASCIZ /XA TRACK ADDRESS/ 

.ASCIZ /XA SECTOR ADDRESS/ 

.ASCIZ /XA 35 ?/ 

.ASCIZ /XA 36 ?/ 

.ASCIZ /XA 37 ?/ 

.ASCIZ /XA 38 ?/ 

.ASCIZ /XA 39 ?/ 

.ASCIZ /XA AC LOW FATAL/ 

.ASCIZ /XA WORD COUNT OVERFLOW/ 

.ASCIZ /XA NON-EXISTENT MEM/ 

.ASCIZ /XA NON-PROCESSOR RED/ 

.ASCIZ /XA PRIORITY LEVEL/ 

.ASCIZ /XA DATA BUFFER INTEG/ 

.ASCIZ /XA HARDWARE SELF DIAG/ 

.ASCIZ /XA "TR" BIT TIME OUT/ 

.ASCIZ /XA "DONE" BIT TIME OUT/ 

.ASCIZ /XA NO BUS "INIT DONE"/ 

.ASCIZ /XA NO PROG "INIT DONE"/ 

.ASCIZ /XA "DONE" SETOWAITING FOR "TR" BIT/ 
.ASCIZ /XA 52 ?/ 

.EVEN ;800. BYTES— >680. 



E 4 


SEC 43 
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1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 
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BIT-NAMES FOR THE DEVICE REGISTERS 


SBTTL - MOD U.SFT.FRU - GET S PRINT FRU'S IDENT 


BGNSUB - GET/PRINT FRU-<GPFRU> 

IF F INI FLAG SET CA] 

: THEN-GET F INI FRU TABLE ADDRESS 

: ELSE— I F ERR CODE NOT=0 & FLAGS=PRINT ERROR CODE SET CB] 

: THEN-GET ERROR CODE 

: CLEAR TOP BYTE & SHIFT RT 2 FOR ADDRESSING 

GET ERROR CODE FRU TABLE ADDRESS 
FIND ERROR CODE FRU TABLE ADDRESS FROM TABLE 
SET TABLE ADDRESS 
: ELSE-GET TEST TABLE ADDRESS 

DOWHILE TABLE ENTRY N0T=~1 EC] 

: ADVANCE TABLE ADDRESS °OINTER 
ENDDO 

DOWHILE TABLE ENTRY N0T=-1 CD] 

: ADVANCE TABLE ADDRESS POINTER 
ENDDO 

ADVANCE TABLE ADDRESS POINTER 
DOUBLE TEST TER 

FRU TABLE ADDRESS THIS TEST SEC=TABLE ADR PTR*TEST 

END IF 


ENDIF 


SETUP t PRINT FRU HEADER 


DOWHILE TABLE ENTRY N0T--1 

EE] 

: IF FRU TABLE ENTRY=0 

CF3 

: THEN-IF LSI PROCESSOR 

EG] 


: THEN-SET FRU PRINTMNTERFACE-M8029 (LSI) 


: ELSE -SET FRU PRINT*INTERFACE-M8256 (UNIBUS) 
ENDIF 

CALL FRU PRINT 

: ELSE-SET FRU PRINT-TABLE ENTRY 
CALL FRU PRINT 

: ENDIF 

: ADVANCE TABLE ADDRESS 

ENDDO 

NOP 

ENDSU8 



F 4 


SEC 44 
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- MOO U.SFT.FRU - GET & PRINT FRU*S IDENT 


1306 

005404 

000240 



PRTFRU: 

NOP 



1307 

005406 

005737 

002454 


IAFRU: 

TST 

FIN 

IF F INI FLAG 

1308 

005412 

001404 




BEO 

IBFRU 

SET. THEN 

1309 

005414 

012737 

006640 

005610 


MOV 

4TT0FT0.FRUTAD 

SET FRU TBL ADR=F INI FRU TBL ADR 

1310 

005422 

000431 




BR 

EAFRU 

BR TO UHILE ’E' 

1311 

005424 

105737 

002442 


IBFRU: 

TSTB 

XERUUT 

IF ERROR CODE 

1312 

005430 

00K12 




BEQ 

LBFRU 

NOT=0. AND 

1313 

005432 

032737 

000200 

002476 


BIT 

ARECFLG.FLAGST 

FLAGS-READ ERROR CODE BIT 

1314 

005440 

001406 




BEO 

LBFRU 

SET. THEN 

1315 

005442 

004737 

017106 



CALL 

GTECOF 

CALL GET ERROR CODE OFFSET 

1316 

005446 

016137 

006660 

005610 


MOV 

TOF TB(R1 > .FRUTAD 

; GE T ERROR CODE FRU TABLE ADDRESS 

1317 

005454 

000414 




BR 

EAFRU 

BR TO UHILE *E' 

1318 

005456 

013701 

002466 


LBFRU: 

MOV 

TSTID.R1 

GET TEST TABLE ADDRESS 

1319 

005462 

005721 



UCFRU: 

TST 

< R 1 ) ♦ 

DO UHILE TABLE ENTRY N0T=-1 

1320 

005464 

100376 




BPL 

UCFRU 

ADVANCE TABLE ADDRESS 

1321 

005466 

005721 



UDFRU: 

TST 

CR 1 ) ♦ 

DO UHILE TABLE ENTRY N0T=-1 

1322 

005470 

100376 




BPL 

UDFRU 

ADVANCE TABLE ADDRESS 

1323 

005472 

013702 

002470 



MOV 

TCMDCT.R2 

GET TEST COMMAND CTR 

1324 

005476 

006302 




ASL 

R2 

DOUBLE IT 

1325 

005500 

060201 




ADD 

R2,R1 

SETUP FRU TABLE ADDRESS 

1326 

005502 

011137 

005610 



MOV 

<R1>. FRUTAD 

SET FRU TABLE ADR=ABOVE ADDRESS 

1327 

005506 

012701 

005650 


EAFRU: 

MOV 

4TFRUM00.R1 

SET FRU MSG HEADER 

1328 

005512 

004737 

002550 



CALL 

PRTBOS 

CALL PRINT BASIC-NO ARG 

1329 

005516 

105777 

000066 


UEFRU: 

TSTB 

iFRUTAD 

DO UHILE TABLE ENTRY 

1330 

005522 

100430 




BMI 

EEFRU 

N0T=-1 

1331 

005524 

105777 

000060 


IFFRU: 

TSTB 

iFRUTAD 

IF TABLE ENTRY 

1 332 

005530 

001014 




BNE 

LFFRU 

EQUALS 0. THEN 

1333 

005532 

032737 

000400 

002500 

IGFRU: 

BIT 

fLSIFLG.FLAGSP 

IF LSI FLAG BIT-PROGRAM FLAGS 

1334 

005540 

001403 




BEQ 

LGFRU 

SET, THEN 

1335 

005542 

012701 

005713 



MOV 

#FRUM0A,R1 

SET LSI INTERFACE MSG 

1336 

005546 

000402 




BR 

EGFRU 

BR TO END 'G* 

1337 

005550 

012701 

005746 


LGFRU: 

MOV 

fFRUMOB.RI 

SET UNIBUS INTERFACE MSG 

1338 

005554 

004737 

002550 


EGFRU: 

CALL 

PRTBOS 

CALL PRINT BASIC-NO ARG 

1339 

005560 

000406 




BR 

EFFRU 

BR TO END 'G* 

1340 

005562 

117701 

000022 


LFFRU: 

MOVB 

iFRUTAD. R1 

SETUP PRINT FRU MSG OFFSET FROM TABLE 

1341 

005566 

016101 

005612 



MOV 

FRUTBMCR1 > ,R1 

SET FRU MSG ADR FROM TABLE 

1342 

005572 

004737 

002550 



CALL 

PRTBOS 

CALL PRINT BASIC-NO ARG 

1343 

005576 

005237 

005610 


EFFRU: 

INC 

FRUTAD 

INCREMENT FRU TABLE ADDRESS 

1344 

005602 

000745 




BR 

UEFRU 

END DO 'E* 

1345 

005604 

000240 



EEFRU: 

NOP 



1346 

17/7 

005606 

000207 



XPTFRU: 

RETURN 


RETURN 

1 JH ( 

1348 

1 7/.Q 

005610 

000000 



F RUT AO: 

0 


FRU TABLE ADDRESS 



G 4 
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GLOBAL AREAS MACRO M1200 14-DEC-82 16:33 PAGE 33 

- MOD U.SFT.FRU - GET ft PRINT FRU‘S IDENT 


1352 005612 000000 

1353 00561 A 006001 
1 35A 005616 006035 

1355 005620 006070 

1356 005622 006120 

1357 00562A 0061 AO 

1358 005626 006173 

1359 005630 006221 

1360 005632 006255 

1361 00563A 006 32 A 

1362 005636 006361 

1 363 0056A0 006A26 
136A 0056A2 006A51 

1 365 0056AA 00650A 

1 366 0056A6 0065AA 

1367 

1368 

1369 

1370 

1371 005650 0A5 

1372 005713 0A5 

1 373 0057A6 0A5 

1 37A 006001 0A5 

1 375 006035 0A5 

1376 006070 0A5 

1377 006120 0A5 

1378 0061 AO 0A5 

1379 006173 0A5 

1380 006221 0A5 

1381 006255 0A5 

1 382 006 32 A 0A5 

1383 006361 0A5 

1 384 006426 045 

1385 006451 045 

1386 006504 045 

1387 006544 045 

1388 
1400 


FRUT8M: .WORD 0 

.WORD FRUM1 
.WORD FRUM2 
.WORD FRUM3 
.WORD FRUMA 
.WORD FRUM5 
.WORD FRUM6 
.WORD FRUM7 
.WORD FRUM8 
.WORD FRUM9 
.WORD F RUM 10 

.WORD FRUM11 
.WORD FRUM12 
.WORD FRUM13 
.WORD FRUM1A 


.SBTTL - FRU MESSAGES 

045 FRUMOO: .ASCII /XNXA POSSIBLE FAILING 'TRU’S": XN/ 

061 FRUMOA: .ASCII /XS11XA INTERFACE - M8029XN/ 

061 FRUM06: .ASCII /XS11XA INTERFACE - M8256XN/ 

061 FRUM1: .ASCII /XS11XA CONTROLLER - M7744XN/ 

061 FRUM2: .ASCII /XS11XA R-W ELECT - M7745XN/ 

061 FRUM3: .ASCII /XS11XA PHYSICAL DRIVEXN/ 

061 FRUMA: .ASCII /XS11XA CABLESXN/ 

061 FRUM5: .ASCII /XS11XA POWER SUPPLY-H771XN/ 

061 FRUM6: .ASCII /XS11XA BAD DISKETTE IN/ 

061 FRUM7: .ASCII /XS11XA INTERFACE SWITCHESXN/ 

061 FRUM8: .ASCII /XS11XA NPR JUMPER - PDP-11 BACKPLANEXN/ 

061 FRUM9: .ASCII /XS11XA CONTROLLER SWITCHESXN/ 

061 FRUM10: .ASCII /XS11XA INTERFACE->C0NTR3LL£R CABLEXN/ 

061 FRUM11: .ASCII /XS11XA DOOR OPENXN/ 

061 FRUM12: .ASCII /XS11XA BROKEN DRIVE BELTXN/ 

061 FRUM13: .ASCII /XS11XA DRIVE MOTOR - AC POWERXN/ 

061 FRUM14: .ASCII /XS11XA POWER CORD. BLOWN FUSE, DRIVE POWER. POWER SUPPLY XN/ 


EVEN ; 506 . BYTES 



H 4 


SEC 46 


GLOBAL AREAS MACRO M1200 

FRU CALLOUT - PRESETUP 

14-DEC-82 
FOR TESTS 

16:33 

PAGE 35 

1403 

1 / A/. 



.sbttl 

FRU CALLOUT - PRESETUP FOR TESTS 

1405 

1406 

1407 006640 
006640 
006641 
006642 
006643 

1 /no 

000000 

006640 

000 

002 

024 

377 


TN=0 

INFCTL=T0FT0 .'INTERFACE 8 CONTROLLER 

FRUTB 0. INTERF .CONTRL, INTFCB 

TOF TO : .BYTE INTERF 

.BYTE CONTRL 
.BYTE INTFCB 
.BYTE -1 

1 **1/0 

1409 

1410 006644 
006644 
006645 

1 A 1 1 

006644 

000 

377 


• 

INTONL=T0FT40 .'INTERFACE ONLY 

FRUTB 40. INTERF 

T0FT40: .BYTE INTERF 
.BYTE -1 

I «• II 

1412 

1413 006646 
006646 
006647 
006650 

006646 

002 

000 

377 


• 

CTlINF--T0FT41 .'CONTROLLER 8 INTERFACE 

FRUTB 41. CONTRL. INTERF 

T0FT41: .BYTE CONTRL 
.BYTE INTERF 
.BYTE -1 

i h m 

1415 

1416 006651 
006651 
006652 
006653 

1417 

1418 

1419 006654 
006654 
006655 
006656 

1420 

1421 

006651 

002 

004 

377 


• 

CTLRUE=T0FT42 

FRUTB 42. CONTRL. RUELEC 

T0FT42: .BYTE CONTRL 
.BYTE RWELEC 
.BYTE -1 

006654 

002 

024 

377 


0 

CTLONL=TOFT43 

FRUTB 43, CONTRL. INTFCB 

T0FT43: .BYTE CONTRL 
.BYTE INTFCB 
.BYTE -1 



0 

.EVEN 



GLOBAL AREAS MACRO M1200 14-DEC-82 16:33 PAGE 37 
FRU CALLOUT - PRESETUP FOR TESTS 


1424 

1425 



• 


ERROR CODE - FRU CALLOUT ADDRESS TABLE 






1426 

006660 

000000 

TOFTB: 

.WORD 

0 

1427 

006662 

006736 


.WORD 

T0FT1 

1428 

006664 

006742 


.WORD 

TOF T 2 

1429 

006666 

000000 


.WORD 

0 

1430 

006670 

006746 


.WORD 

T0FT4 

1431 

006672 

006751 


.WORD 

TOF T 5 

1432 

006674 

000000 


.WORD 

0 

1433 

006676 

006755 


.WORD 

T0FT7 

1434 

006700 

000000 


.WORD 

0 

1435 

006702 

006763 


.WORD 

TOF Til 

1436 

006704 

006770 


.WORD 

T0FT12 

1437 

006706 

006776 


.WORD 

TOF T 1 3 

1438 

006710 

000000 


.WORD 

0 

1439 

006712 

007002 


.WORD 

TOF T 1 5 

1440 

006714 

007006 


.WORD 

T0FT16 

1441 

006716 

007012 


.WORD 

T0FT17 

1442 

00*720 

007016 


.WORD 

T0FT20 

1443 

006722 

000000 


.WORD 

0 

1444 

006724 

007022 


.WORD 

T0FT22 

1445 

006726 

007025 


.WORD 

T0FT23 

1446 

006730 

007030 


.WORD 

T0FT24 

1447 

006732 

007035 


.WORD 

TOFT25 

1448 

1449 

1450 

1451 

006734 

177777 


.WORD 

-1 



• * 





.SBTTL 

FRU 

CALLOUT - PRESETUP FOR ERROR CODE 

1452 



• 



1453 


000000 

TN=0 



1454 

006736 

006736 

006 


FPUTB 

1. PHYDRV, CONTRL. RWELEC 

T0FT1: .BYTE PHYDRV 


006737 

002 



.BYTE CONTRL 


006740 

004 



.BYTE RWELEC 


006741 

377 



.BYTE -1 

1455 

006742 

006742 

006 


FRUT8 

2. PHYDRV. CONTRL, RWELEC 

T0FT2: .BYTE PHYDRV 


006743 

002 



.BYTE CONTRL 


006744 

004 



.BYTE RWELEC 

1456 

006745 

006746 

377 


FRUT8 

.BYTE -1 

4. INTERF, CONTRL 

T0FT4: .BYTE INTERF 

006746 

000 




006747 

002 



.BYTE CONTRL 


006750 

377 



.BYTE -1 

1457 

006751 



FRUTB 

5. RWELEC, PHYDRV, CONTRL 


006751 

004 



T0FT5: .BYTE RWELEC 


006752 

006 



.BYTE PHYDRV 


006753 

002 



.BYTE CONTRL 


006754 

377 



.BYTE -1 

1458 

006755 



FRUTB 

7, DISKET, RWELEC, PHYDRV. CONTRL, INTERF 


006755 

014 



T0FT7: .BYTE DISKET 


006756 

004 



.BYTE RWELEC 


006757 

006 



.BYTE PHYDRV 


006760 

002 



.BYTE CONTRL 


006761 

000 



.BYTE INTERF 


006762 

377 



.BYTE -1 

1459 

006763 



FRUTB 

11 .DISKET, RWELEC, PHYDRV. CONTRL 



J 


4 


SEQ 48 


GLOBAL AREAS MACRO M1200 14-0EC-82 16:33 
FRU CALLOUT - PRESETUP FOR ERROR CODE 


006763 

014 

006764 

004 

006765 

006 

006766 

002 

006767 

377 

1460 006770 


006770 

014 

006771 

004 

006772 

006 

006773 

002 

006774 

012 

006775 

377 

1461 006776 


006776 

014 

006777 

004 

007000 

002 

007001 

377 

1462 007002 


007002 

004 

007003 

006 

007004 

002 

007005 

377 

1463 007006 


007006 

004 

007007 

006 

007010 

002 

007011 

377 

1464 007012 


007012 

014 

007013 

004 

007014 

002 

007015 

377 

1465 007016 


007016 

014 

007017 

004 

007020 

002 

007021 

377 

1466 007022 


007022 

004 

007023 

002 

007024 

377 

1467 007025 


007025 

00 0 

007026 

002 

007027 

377 

1468 007030 


007030 

014 

007031 

002 

007032 

000 

007033 

004 

007034 

3 77 

1469 007035 


007035 

000 

007036 

002 

007037 

377 

1470 


1471 
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T0FT11: .BYTE DISKET 
.BYTE RWELEC 
.BYTE PHYDRV 
.BYTE CONTRL 
.BYTE -1 

FRUTB 12. DISKET, RWELEC. PHYDRV. CON T RL,POWRSP 
T0FT12: .BYTE DISKET 

.BYTE RWELEC 

.BYTE PHYDRV 

.BYTE CONTRL 

.BYTE POWRSP 

.BYTE -1 

FRUTB 13. DISKET, RWELEC, CONTRL 
TOFT13: .BYTE DISKET 

.BYTE RWELEC 

.BYTE CONTRL 

.BYTE -1 

FRUTB 15, RWELEC, PHYDRV.CONTRL 
TOFT15: .BYTE RWELEC 

.BYTE PHYDRV 

.BYTE CONTRL 

.BYTE -1 

FRUTB 16. RWELEC, PHYDRV. CONTRL 
T0FT16: .BYTE RWELEC 

.BYTE PHYDRV 

.BYTE CONTRL 

.BYTE -1 

FRUTB 17. DISKET. RWELEC, CONTRL 
T0FT17: .BYTE DISKET 

.BYTE RWELEC 

.BYTE CONTRL 

.BYTE -1 

FRUTB 20. DISKET, RWELEC. CONTRL 
T0FT20: .BYTE DISKET 

.BYTE RWELEC 

.BYTE CONTRL 

.BYTE -1 

FRUTB 22. RWELEC, CONTRL 

T0FT22: .BYTE RWELEC 

.BYTE CONTRL 

.BYTE -1 

FRUTB 23, INTERF, CONTRL 

TOFT23: .BYTE INTERF 

.BYTE CONTRL 

.BYTE -1 

FRUTB 24. DISKET, CONTRL. INTERF. RWFLEC 
TOFT 24 : .BYTE DISKET 

.BYTE CONTRL 

.BYTE INTERF 

.BYTE RWELEC 

.BYTE -1 

FRUTB 25, INTERF, CONTRL 

T0FT25: .BYTE INTERF 

.BYTE CONTRL 

.BYTE -1 


.EVEN 



K 4 


SEC 49 


GLOBAL AREAS MACRO H1200 14-DEC-82 16:33 PAGE 39 
- MOO U.ERR.PCE - PRINT COMMAND ERROR 


1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 
485 
‘.36 
s' 7 

’^8 

,-,89 

1490 

1491 

1492 

1493 

1494 


.SBTTL - MOD U.ERR.PCE - PRINT COMMAND ERROR 


BGNSU8 


ENDSUB 


SETUP £ PRINT COMMAND FORMAT MESSAGE 
GET COMMAND 
IF INITIALIZE COMMAND 

THEN-SETUP IN IT COMMAND MSG 
ELSE-CLEAR TOP BITS £ GO BIT 
CLEAR TOP BITS £ GO BIT 

GET COMMAND MSG ADDRESS FROM TABLE (INDEXED BY COMMAND) 

ENDIF 

CALL PRINT 

SETUP £ PRINT END OF COMMAND ERROR 
IF PROTOCOL TYPE COMMAND 

THEN-IF PRINT FLAG$=PRINT PROTOCAL SET 
: THEN-SETUP £ PRINT PROTOCOL ERR 
ENDIF 

ENDIF 


1495 007040 

000240 



PRTCDE : 

NOP 



1496 007042 

012701 

007204 



MOV 

#CMFTMS,R1 

SETUP COMMAND FORMAT MESSAGE 

1497 007046 

004737 

002550 



CALL 

PRTBOS 

CALL PRINT BASIC-NO ARG 

1498 007052 

013702 

002422 



MOV 

ERRCMD.R2 

GET COMMAND 

1499 007056 

032702 

040000 


IAPCE : 

BIT 

#8IT14,R2 

IF INITIALIZE BIT 

1500 007062 

001405 




BEQ 

LAPCE 

SET, THEN 

1501 007064 

012701 

007452 



MOV 

#CMDM8,R1 

SET PROGRAMMED 1N1T MSG 

1502 007070 

012702 

000012 



MOV 

#12,R2 

SET R2 TO SHOW COMMAND WITH NO PROTOCOL 

1503 007074 

000404 




BR 

EAPCE 

BR TO END 'A' 

1504 007076 

042702 

177761 


LAPCE: 

BIC 

#1 77761, R2 

CLEAR TOP BITS £ GO BIT 

1505 007102 

016201 

007164 



MOV 

CNDMSG(R2),R1 

GET COMMAND MSG ADR FROM TABLE 

1506 007106 

004737 

002550 


EAPCE: 

CALL 

PRTBOS 

CALL PRINT BASIC-NO ARG 

SETUP "COMMAND ERR" MSG 

1507 007112 

012701 

007216 



NOV 

#CHERMS,R1 

1508 007116 

004737 

002550 



CALL 

PRTBOS 

CALL PRINT BAsIC-NO ARG 

1509 007122 

022702 

000012 


I8PCE: 

CMP 

#12, R2 

IF R2 CONTAINS PROTOCOL TYPE COMMAND 

1510 007126 

001415 




BEQ 

XPCE 

THEN 

1511 007130 

032737 

000010 

C02500 

ICPCE: 

BIT 

#PROPRT,FLAGSP 

IF PRINT PROTOCOL FLAG=FLAGSP 

1512 007136 

001411 




BEQ 

XPCE 

SET, THEN 

1513 007140 

013702 

002472 



MOV 

PR0TCT,R2 

SETUP PRINT PROTOCOL CNT 

1514 007144 

012701 

007502 



MOV 

fCMDPE.RI 

SETUP PRINT PROTOCOL ERR MSG 

1515 007150 

004737 

002734 



CALL 

PRTX1S 

PRINT MSG 

1516 007154 

042737 

000020 

002460 


aic 

#CMDERR,TYPERR 

CLEAR TYP ERR COMMAND ERROR 

1517 007162 

000207 



XPCE: 

RETURN 


RETURN 


1518 



L 4 


SEQ 50 


GLOBAL AREAS MACRO Ml 200 14-DEC-82 16:33 PAGE 41 


COMMAND ERROR MESSAGE 

1521 

1CV1 

TABLE 


.SBTTL - COMMAND ERROR MESSAGE TABLE 

' 3CC 








1523 

007164 

007237 



CMDMSG: .WORD 

CMDMO 

1524 

007166 

007255 




.WORD 

CMDM1 

1525 

007170 

007274 




.WORD 

CMDM2 

1526 

007172 

007313 




.WORD 

CMDM3 

1527 

007174 

007331 




.WORD 

CMDM4 

1528 

0071 76 

007347 




.WORD 

CMDM5 

1529 

007200 

007374 




.WORD 

CMDM6 

1530 

007202 

007430 




.WORD 

CMDM7 

1531 

007204 

045 

116 

045 

CMFTMS: .ASCIZ 

/XNXS6XA->/ 

1532 

007216 

045 

101 

040 

CMERMS: .ASCIZ 

/XA COMMAND ERROR/ 

1533 

007237 

045 

101 

106 

CMDMO 

.ASCIZ 

/XAF ILL BUFFER/ 

1534 

007255 

045 

101 

105 

CMDM1 

.ASCIZ 

/XAEMPTY BUFFER/ 

1535 

007274 

045 

101 

127 

CMDM2 

.ASCIZ 

/XAWRITE SECTOR/ 

1536 

007313 

045 

101 

122 

CMDM3 

.ASCIZ 

/XAREAD SECTOR/ 

1537 

007331 

045 

101 

123 

CMDM4 

.ASCIZ 

/XASET DENSITY/ 

1538 

007347 

045 

101 

122 

CMDM5 

.ASCIZ 

/XAREAD MAINT. STATUS/ 

1539 

007374 

045 

101 

127 

CMDM6 

.ASCIZ 

/XAWRITE SECTOR-DELETED DATA/ 

1540 

007430 

045 

101 

122 

CMDM7 

.ASCIZ 

/XAREAD ERROR CODE/ 

1541 

007452 

045 

101 

120 

CMDM8 

.ASCIZ 

/XAPROGRAMHED INITIALIZE/ 

1542 

007502 

045 

116 

045 

CMDPE 

•ASCIZ 

/XNXS8XAPR0T0C0L FAJLED-WAITING TO PASS WORD #X01/ 

1543 

1544 






.EVEN 




m a 


SEO 5 


GLOBAL AREAS MACRO Ml 200 1A-DEC-82 16:33 PAGE A3 
- MOD U.ERR.PRE - PRINT REGISTER ERROR 


15A7 
15A8 
1 5A9 

1550 

1551 

1552 

1553 
155A 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 
156A 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 
157A 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 
158A 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 


.SBTTL - MOD U.ERR.PRE - PRINT REGISTER ERROR 


00756A 

0002A0 



PRTREG: NOP 



007566 

012701 

007620 


MOV 

APRTGMS.R1 

SETUP REGISTER MESSAGE 

007572 

013702 

002AA0 


MOV 

REGACT.R2 

SETUP REG ACTUAL 

007576 

013703 

002A36 


MOV 

REGEXP.R3 

SETUP REG EXPECTED 

007602 

00A737 

002612 


CALL 

PRTB2S 

CALL PRINT BASIC-2 ARG 

007606 

005037 

002AA0 


CLR 

REGACT 

CLEAR OLD RESULTS 

007612 

005037 

002A36 


CLR 

REGEXP 

CLEAR OLD RESULTS 

007616 

000207 



RETURN 


RETURN 

007620 

0A5 

116 

0A5 

PRTGMS: .ASCII 

/XNXS6XAREG ACTUAL=XOXN/ 

0076A6 

0A5 

123 

066 

.ASCIZ 

.EVEN 

/XS6XAREG EXPECT: 

-XOXN/ 


SBTTL - MOD U.PRT.SCP - PRINT SECTORS 


BGNSU8 


ENDSUB 


IF READ ERROR CODE FLAG SET 

THEN-SETUP PRINT EXPECTED SECTOR 
SETUP PRINT DEVICE SECTOR 
CALL PRINT 

ENDIF 


00767A 

0002A0 



PRTSEC : 

NOP 



007676 

032737 

000200 

002A76 

IASCP: 

BIT 

ARECFLG.FLAGST 

IF READ ERROR CODE FLAG 

00770A 

001 A2A 




BEO 

XSCP 

SET, THEN 

007706 

013702 

002376 



MOV 

SECTOR. R2 

SETUP EXPECTED SECTOR 

007712 

012701 

010156 



MOV 

fEXMS.RI 

SETUP EXPECTED MSG 

007716 

00A737 

002550 



CALL 

PRTBOS 

CALL PRINT BASIC-0 ARG 

007722 

012701 

007760 



MOV 

#ADSCMS,R1 

SETUP SECTOR MSG 

007726 

00A737 

002570 



CALL 

PRTB1S 

CALL PRINT BASIC-1 ARG 

007732 

113702 

002AA7 



movb 

TSEC.R2 

SETUP DEVICE SECTOR 

007736 

012701 

010220 



MOV 

#TGMS,R1 

SETUP TARGET MSG 

0077A2 

00A737 

002550 



CALL 

PRTBOS 

CAlL PRINT BASIC-0 ARG 

0077A6 

012701 

007760 



MOV 

#ADSCMS,R1 

SETUP SECTOR MSG 

007752 

00A737 

002570 



CALL 

PRTB1S 

CALL PRINT BASIC-1 ARG 

007756 

000207 



XSCP: 

RETURN 


RETURN 

007760 

0A5 

101 

OAO 

ADSCMS: 

.ASCIZ 

.EVEN 

/XA SECT0R-XD2XA./ 



N 4 


SEG 52 


GLOBAL AREAS MACRO Ml 200 14-DEC-82 16:33 PAGE 45 
- MOO U.PRT.TKP - PRINT TRACKS 


1595 

1596 

1597 

1598 

1599 

1600 
1601 
1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 
1611 
1612 
1613 


SBTTL - MOD U.PRT.TKP - PRINT TRACKS 


BGNSUB 


ENOSUB 


CALL PRINT UNIT IDENT 
IF READ ERROR CODE FLAG SET 

THEN-SETUP PRINT EXPECTED TRACK 
CALL PRINT 1 PARAMETER 
IF DRIVE #1 SELECTED 
: THEN-SETUP CURRENT TRACK DRV1-PRINT 
: ELSE-SETUP CURRENT TRACK DRVO-PRINT 
END IF 

CALL PRINT 1 PARAMETER 
SETUP PRINT DRIVE TARGET TRACK 
CALL PRINT 1 PARAMETER 
ELSE-SETUP PRINT ERROR ON TRACK 
CALL PRINT 1 PARAMETER 

ENDIF 


1614 

010002 

004737 

020600 


PRTTRK: 

CALL 

PRTDID 

CALL PRINT DRIVE IDENT 

1615 

010006 

032737 

000200 

002476 

IATKP: 

BIT 

#RECFLG,FLAGST 

IF READ ERROR CODE FLAG 

1616 

010014 

001445 




8EQ 

LATKP 

FLAG SET, THEN 

1617 

010016 

013702 

002374 



MOV 

TRACK, R2 

SETUP EXPECTED TRACK 

1618 

010022 

012701 

010156 



MOV 

#EXMS,R1 

SETUP EXPECTED MSG 

1619 

010026 

004737 

002550 



CALL 

PRT80S 

CALL PRINT BASIC-0 ARG 

1620 

010032 

012701 

010257 



MOV 

#ADTKMS,R1 

SETUP PRINT TRACK 

1621 

010036 

004737 

002570 



CALL 

PRTB1S 

CALL PRINT BASIC-1 PAR. 

1622 

010042 

005737 

002406 


I8TKP: 

TST 

DRIVE 

IF DRIVE #1 

1623 

010046 

001403 




8EQ 

LBTKP 

SELECTED, THEN 

1624 

010050 

113702 

002445 



M0V8 

CTKl ,R2 

SETUP CUR TRK D1-PRT 

1625 

010054 

000402 




8R 

EBTKP 

BR TO END 'B* 

1626 

010056 

113702 

002444 


LBTKP: 

MOVB 

CTK0,R2 

SETUP CUR TRK DO-PRT 

1627 

010062 

012701 

010177 


E8TKP: 

MOV 

#CDMS,R1 

SETUP DRIVE CURRENT MSG 

1628 

010066 

004737 

002550 



CALL 

PRTBOS 

CALL PRINT BASIC-0 ARG 

1629 

010072 

012701 

010257 



MOV 

f ADTKMS, R1 

SETUP PRINT TRACK 

1630 

010076 

004737 

002570 



CALL 

PRTB1S 

CALL PRINT BASIC-1 PAR. 

1631 

010102 

113702 

002446 



MOVB 

TTRK.R2 

SETUP TARGET TRACK 

1632 

010106 

012701 

010220 



MOV 

ATGMS.R1 

SETUP TARGET MSG 

16b3 

010112 

004737 

002550 



CALL 

PRTBOS 

CALL PRINT BASIC-0 ARG 

1634 

010116 

012701 

010257 



MOV 

AADTKMS.R1 

SETUP PRINT TRACK 

1635 

010122 

004737 

002570 



CALL 

PRTB1S 

CALL PRINT BASIC-1 PAR. 

1636 

010126 

000412 




BR 

XTKPRT 

BR TO EXIT 

1637 

010130 

013702 

002374 


LATKP: 

MOV 

TRACK, R2 

SETUP ERROR TRACK 

1638 

010134 

012701 

010241 



MOV 

*ERTKMS,R1 

SETUP ERROR TRACK MSG 

1639 

010140 

004737 

002550 



CALL 

PRTBOS 

(.ALL PRINT BASIC-C ARG 

1640 

010144 

012701 

010257 



MOV 

fADTKMS.Rl 

SETUP PRINT TRACK 

1641 

010150 

004737 

002570 



CALL 

PRTB1S 

CALL PRINT BASIC-1 PAR. 

1642 

1 JL/ 7 

010154 

000207 



XTKPRT: 

RETURN 



10*0 





# 




1644 

010156 

045 

116 

045 

EXMS: 

.ASCIZ 

/ZNZS6ZA EXPECTED/ 

1645 

010177 

045 

116 

045 

CDMS: 

-ASCIZ 

/ZNZS6ZA CUR DRV/ 

1646 

010220 

045 

116 

045 

TGMS: 

.ASCIZ 

/ZNZS6ZA TARGET/ 

1647 

010241 

045 

116 

045 

ERTKMS: 

.ASCIZ 

/ZNZA ERROR ->/ 


1648 

010257 

045 

101 

040 

ADTKMS: 

.ASCIZ 

/ZA TRACK=ZD2ZA./ 

1649 






• EVEN 




1650 
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ERRORS 


CLEAR READ ERR CODE WORD 
CLEAR ERROR NUMBER 
CLEA”> ERROR TYPE 
CLEAR ERROR BLOCK 
CLEAR FINI 
CLEAR ABORT 
CLEAR FLAGST ERR FLAG 
RETURN 
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1676 

1677 

1678 

1679 

1680 
1681 
1682 

1742 

1743 

1744 

1745 
1752 
1758 
1765 
1771 
1778 
1787 
1795 
1801 
1802 
1809 


.SBTTL GLOBAL SUBROUTINES SECTION 




THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
THAT ARE USED IN MORE THAN ONE TEST. 


SBTTL - MOD U.1.0 - RANDOM GENERATOR 

FUNCTIONAL DESCRIPTION: 

SUBROUTINE TO GENERATE A RANDOM NUMBER 
INPUTS: NONE 
IMPLICIT INPUTS: NONE 
OUTPUTS: RANUM 
IMPLICIT OUTPU T S: NONE 
SUBORDINATE ROUTINES USED: NONE 
FUNCTIONAL SIDE EFFECTS: NONE 
CALLING SEQUENCE: SUB 


RANDOM GENERATOR 


1816 

010344 

012700 

000001 

RANGEN: MOV 

#1,R0 

1817 

010350 

063700 

010432 

ADD 

RANI ,R0 

1818 

010354 

063700 

010434 

ADD 

RAN2.R0 
#1 70000, RO 

1819 

010360 

042700 

1 70000 

BIC 

1820 

010364 

000241 


CLC 


1821 

010366 

006100 


ROL 

RO 

1822 

010370 

006100 


ROL 

RO 

1823 

010372 

010037 

010432 

MOV 

R0.RAN1 

1824 

010376 

005000 


CLR 

RO 

1825 

010400 

013700 

010434 

MOV 

RAN2.R0 

1826 

010404 

006000 


ROR 

RO 

1827 

010406 

006000 


RCR 

RO 

1828 

010410 

063700 

010432 

ADD 

RAN1.R0 
#1 70000, RO 

1829 

010414 

042700 

170000 

BIC 

1830 

010420 

010037 

010434 

MOV 

R0.RAN2 

1831 

010424 

010037 

010436 

MOV 

RO, RANUM 

1832 

1 07 ? 

010430 

000207 


RTS 

PC 







1834 

010432 

000000 


RANI : 0 


1835 

010434 

000000 


RAN2: 0 


1836 

010436 

000000 


RANUM: 0 



1837 
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1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 


SBTTL - MOD U.DEV.INT - INITIALIZE DEVICE 

FUNCTIONAL DESCRIPTION: SUBR TO SEND INITIALIZE TO DEVICE .-ERROR CK 
INPUTS: NONE 

IMPLICIT INPUTS: ERROR BIT 
OUTPUTS: DEVICE INITIALIZE 
IMPLICIT OUTPUTS: 

SUBORDINATE ROUTINES USED: COMMAND ERR CK, GET DEV. REGS, WAIT DONE 
FUNCTIONAL SIDE EFFECTS: 

CALLING SEQUENCE: SUBR 


1850 

1851 

1852 

1853 

1854 





0 



010440 

012737 

040000 

002400 

0 

INTIAL: MOV 

#40000. CHD 

SET INT COMMAND 

1855 

010446 

013777 

002400 

171674 

MOV 

CMD.8RXCS 

INIT UNIT 0 

1856 

010454 

004737 

012032 


CALL 

AWDN 

GO AWAIT DONE 

1857 

010460 

004737 

011544 


XINT: CALL 

CDERCK 

CALL COMMAND ERROR CK 

1858 

010464 

004737 

012244 


CALL 

GETREG 

CALL GET DEV REGS 

1659 

010470 

000207 



RTS 

PC 

RETURN 


1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 010472 

1879 010476 

1880 010502 

1881 010506 

1882 


SBTTL - MOD U.DEV.CLD - CLEAR DEVICE 
♦ ♦ 

FUNCTIONAL DESCRIPTION: SUBR TO SEND INIT TO DEVICE - NO ERROR CK 

INPUTS: NONE 

IMPLICIT INPUTS: NONE 

OUTPUTS: DEVICE INITIALIZE 

IMPLICIT OUTPUTS: 

SUBORDINATE ROUTINES USEO: A WAIT “DONE” 

FUNCTIONAL SIDE EFFECTS: 

CALLING SEQUENCE: SUBR 


012701 

040000 

CLRDEV: MOV 

#40000, R1 

;SET INITIALIZE COMMAND 

010177 

171646 

MOV 

R1,BRXCS 

.•CLEAR DEVICE 

004737 

012032 

CALL 

AWDN 

; AWAIT DONE 

000207 


RETURN 


.•RETURN 
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1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 010510 004737 011634 

1900 010514 005737 002454 

1901 010520 001035 

1902 010522 012737 000001 

1903 010530 004737 011502 

1904 010534 053737 002366 

1905 010542 013777 002400 

1906 010550 004737 012110 

1907 010554 005737 002454 

1908 010560 001015 

1909 010562 013777 002370 

1910 010570 004737 012110 

1911 010574 005737 002454 

1912 010600 001005 

1913 010602 013777 002362 

1914 010610 004737 011610 

1915 010614 004737 011544 

1916 010620 004737 012244 

1917 010624 000207 

1918 
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SBTTL - MOD U.DEV.FLB - FILL BUFFER 
♦♦ 

FUNCTIONAL DESCRIPTION: SUBR TO SEND FILL BUFFER COMMAND TO DEVICE. 

INPUTS: NONE 

IMPLICIT INPUTS: NONE 

OUTPUTS: FILL BUFFER TO RX 

IMPLICIT OUTPUTS: 

SUBORDINATE ROUTINES USED: SET COMMANDS. WAIT •■DONE**. WAIT *'TR" 
FUNCTIONAL SIDE EFFECTS: 

CALLING SEQUENCE: 



FILBUF : 

CALL 

DVDNCK 

CALL DEVICE READY CHECK 



TST 

FIN 

IF FINI FLAG SET 



BNE 

XFILBF 

NOT SET. THEN 

011542 


MOV 

#1 .NCMD 

SET FILL BUFFER COMMAND 



CALL 

SETSCD 

CALL SET SU8SYS COMMAND - MOD U.DEV.SSC 

002400 


BIS 

EXTADR.CMD 

SET EXT. ADR. BITS 

171600 


MOV 

CMD.3RXCS 

LOAD COMMAND 

WAIT FOR , ’TR" 



CALL 

AWTR 


IBFLB: 

TST 

FIN 

IF FINI FLAG 



BNE 

XFILBF 

EQUALS ZERO THEN 

171562 


MOV 

WDCNT.3RXDB 

LOAD WJRD COUNT FOR OUTPUT BUFFER 



CALL 

AWTR 

WAIT FOR ' *i H' ' 


ICFLB: 

TST 

FIN 

IF FINI FLAG 



BNE 

XFILBF 

EQUALS ZERO THEN 

171542 


MOV 

FILADR.3RXDB 

LOAD BASE ADDRESS FOR OUTPUT BUFFER 



CALL 

WAIT 

WAIT FOR "DONE’' OR INTERRUPT 


XFILBF: 

CALL 

CDERCK 

CALL COMMAND ERROR CHECK 



CALL 

GETREG 

CALL GET DEV REGS 



RTS 

PC 

RETURN 
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MOD U.DEV.EMB - EMPTY BUFFER 




1921 




SBTTL - MOD 

U.DEV.EMB - EMI 

1922 






1923 




FUNCTIONAL 

DESCRIPTION: SI 

1924 




INPUTS: NONE 

1925 




IMPLICIT INPUTS: NONE 

1926 




OUTPUTS: EMPTY BUFFER TO 

1927 




IMPLICIT OUTPUTS: 

1928 




SUBORDINATE 

ROUTINES USED: 

1929 




FUNCTIONAL 

SIDE EFFECTS: 

1930 




CALLING SEQUENCE: 

1931 




** 


1932 






1933 






1934 






1935 010626 

004737 

011634 

EMPBUF: CALL 

DVDNCK 

1936 010632 

005737 

002454 


TST 

FIN 

1937 010636 

001035 



BNE 

XEMPBF 

1938 010640 

012737 

000003 

011542 

MOV 

#3,NCMD 

1939 010646 

004737 

011502 


CALL 

SETSCD 

1940 010652 

053737 

002366 

002400 

BIS 

EXTADR.CMD 

1941 010660 

013777 

002400 

171462 

MOV 

CMD.BRXCS 

1942 010666 

004737 

012110 


CALL 

AWTR 

1943 010672 

005737 

002454 

IBEM8: TST 

FIN 

1944 010676 

001015 



BNE 

XEMPBF 

1945 010700 

013777 

002370 

171444 

MOV 

WDCNT,BRXDB 

1946 010706 

004737 

012110 


CALL 

AWTR 

1947 010712 

005737 

002454 

ICEM8: TST 

FIN 

1948 010716 

001005 



BNE 

XEMPBF 

1949 010720 

013777 

002360 

171424 

MOV 

EMPADR.BRXDB 

1950 010726 

004737 

011610 


CALL 

WAIT 

1951 010732 

004737 

011544 

XEMPBF: CALL 

CDERCK 

1952 010736 

004737 

012244 


CALL 

GETREG 

1953 010742 

000207 



RTS 

PC 

1954 







SETUP COMMANDS, WAIT "DONE", WAIT "TR" 


CALL DEVICE READY CHECK 

IF F1N1 FLAG 

NOT SET, THEN 

SET EMPTY BUFFER COMMAND 

CALL SET SUBSYS COMMAND 

SET EXT. ADR. BITS 

ELSE LOAD COMMAND 

WAIT FOR "TR" DO MOD U.TR 

IF F1NI FLAG 

EQUALS ZERO 

THEN LOAD WORD COUNT FOR INPUT BUFFER 
WAIT FOR "TR" DO MOD U.TR 
IF FINI FLAG 
EQUALS ZERO 

THEN LOAD BASE ADDRESS FOR INPUT BUFFER 

WAIT FOR "DONE" OR INTERRUPT 

CALL COMMAND ERROR CHECK 

CALL GET DEV REGS 

RETURN 
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1957 

1958 

1959 

1960 

1961 

1962 

1963 
196*. 

1965 

1966 

1967 

1968 

1969 

1970 


WRITE SUBROUTINE 


SBTTL - MOD U.DEV.WRT 

FUNCTIONAL DESCRIPTION: SUBR TO SEND WRITE SECTOR TO DEVICE. 
INPUTS: NONE 

IMPLICIT INPUTS: DELETED DATA MODE 
OUTPUTS: WRITE SECTOR TO RX 
IMPLICIT OUTPUTS: 

SUBORDINATE ROUTINES USED: SET'JP COMMANDS. WAIT ••DONE”, WAIT ”TR’ 
FUNCTIONAL SIDE EFFECTS: 

CALLING SEQUENCE: 


1971 

010744 

004737 

011634 


WRITE: 

CALL 

DVDNCK 

CALL DEVICE READY CHECK 

1972 

010750 

005737 

002454 



TST 

FIN 

IF F INI FLAG 

1973 

010754 

001037 




BNE 

XWRITE 

equals zero THEN 

1974 

010756 

012737 

000005 

011542 


MOV 

45.NCMD 

SET TO WRITE SECTOR 

1975 

010764 

053737 

002402 

011542 


BIS 

DELDAT.NCMD 

SETUP WRITE DELETED DATA. IF SET 

1976 

010772 

004737 

011502 



CALL 

SETSCD 

CALL SET SUBSYS COMMAND 

1977 

010776 

004737 

011462 



CALL 

SETDCD 

CALL SET DEVICE COMMAND - MOD U.DEV.CMD 

1978 

011002 

013777 

002400 

171340 

WRITE!: 

MOV 

CMD.BRXCS 

LOAD COMMAND 

1979 

011010 

004737 

012110 



CALL 

AWTR 

GO AWAIT TRANSFER READY ”TR" 

1980 

011014 

005737 

002454 


IBWRT: 

TST 

FIN 

IF F INI FLAG 

1981 

011020 

001015 




BNE 

XWRITE 

EQUALS ZERO THEN 

1982 

011022 

013777 

002376 

171322 


MOV 

SECTOR. iRXDB 

LOAD SECTOR ADDRESS 

1983 

011030 

004737 

012110 



CALL 

AWTR 

GO AWAIT TRANSFER READY '•TR” 

1984 

011034 

005737 

002454 


ICWRT : 

TST 

FIN 

IF FINI FLAG 

1985 

011040 

001005 




BNE 

XWRITE 

EQUALS ZERO THEN 

1986 

011042 

013777 

002374 

171302 


MOV 

TRACK. 8RXDB 

LOAD TRACK ADDRESS 

1987 

011050 

004737 

011610 



CALL 

WAIT 

WAIT FOR INTERRUPT OR ,, DONE" 

1988 

011054 

004737 

012244 


XWRITE: 

CALL 

GETREG 

CALL GET DEV REGS 

1989 

011060 

000207 




RTS 

PC 

RETURN 


1990 



GLOBAL AREAS MACRO M1200 14-DEC-82 16:33 PAGE 59 

- MOO U. DEV. RED - READ SUBROUTINE 


1993 

1994 

1995 

1996 
199? 

1998 

1999 

2000 
2001 
2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 
2011 
2012 

2013 

2014 

2015 

2016 

20 1 7 

2018 

2019 

2020 
2021 
2022 

2023 

2024 

2025 


SBTTL - MOD U. DEV. RED - READ SUBROUTINE 
♦ ♦ 

FUNCTIONAL DESCRIPTION: SUBR TO SEND READ SECTOR 10 DEVICE. 

INPUTS: NONE 
IMPLICIT INPUTS: NONE 
OUTPUTS. READ SECTOR TO RX 
IMPLICIT OUTPUTS: 

SUBORDINATE ROUTINES USED: SETjP COMMANDS, WAIT '■DONE*’, WAIT "TR" 
FUNCTIONAL SIDE EFFECTS: 

CALLING SEQUENCE: 


011062 

004737 

011634 


READ: 

CALL 

DVDNCK 

CALL DEVICE READY CHECK 

011066 

005737 

002454 



TST 

FIN 

IF F INI FLAG 

011072 

001034 




BNE 

XREAD 

equals zero, then 

011074 

012737 

000007 

011542 


MOV 

#7,NCMD 

SET READ COMMAND 

011102 

004737 

011502 



CALL 

SETSCD 

CALL SET SU8SYS COMMAND 

011106 

004737 

011462 



CALL 

SETDCD 

CALL SET DEVICE COMMAND - MOD U.DEV.SDC 

011112 

013777 

002400 

171230 

READ1 : 

MOV 

CMD.BRXCS 

LOAD COMMAND 

011120 

004737 

012110 



CALL 

AWTR 

GO AWAIT TRANSFER READY 

011124 

005737 

002454 


IBRED: 

TST 

FIN 

IF F INI FLAG 

011130 

001015 




BNE 

XREAD 

EQUALS ZERO, THEN 

011132 

013777 

002376 

171212 


MOV 

SECT0R,9RXDB 

LOAD SECTOR ADDRESS 

011140 

004737 

012110 



CALL 

AWTR 

GO AWAIT TRANSFER READY 

011144 

005737 

002454 


ICRED: 

TST 

FIN 

IF FINI FLAG 

011150 

001005 




BNE 

XREAD 

EOUALS ZERO, THEN 

011152 

013777 

002374 

171172 


MOV 

TRACK, BRXDB 

LOAD TRACK ADDRESS 

011160 

004737 

011610 



CALL 

WAIT 

WAIT FOR INTERRUPT OR "DONE'' 

011164 

004737 

012244 


XREAD: 

CALL 

GETREG 

CALL GET DEV REGS 

011170 

000207 




RETURN 


RETURN 
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2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 


SBTTL - MOD U. DEV. SDN - SET DENSITY 

FUNCTIONAL DESCRIPTION: SUBR TO SEND SET DENSITY COMMAND TO DEVICE. 

INPUTS: NONE 

IMPLICIT INPUTS: DENSITY 

OUTPUTS: SET DENSITY TO RX 

IMPLICIT OUTPUTS: 

SUBORDINATE ROUTINES USFD: SETUP COMMANDS, WAIT 'DONE". WAIT ”TR" 
FUNCTIONAL SIDE EFFECTS: 

CALLING SEQUENCE: 


011172 

004737 

011634 


SETDN: CALL 

DVDNCK 

CALL DEVICE READY CHECK 

011176 

005737 

002454 


TST 

FIN 

IF FINI FLAG 

011202 

001024 



BNE 

XSETDN 

NOT SET, THEN 

011204 

012737 

000011 

011542 

MOV 

#1 1 ,NCMD 

SETUP DENSITY command 

011212 

004737 

011502 


CALL 

SETSCD 

CALL SET SUBSYS COMMAND 

011216 

004737 

011462 


CALL 

SETDCD 

CALL SET DEVICE COMMAND - MOD U.DEV.SDC 

011222 

013777 

002400 

171120 

MOV 

CMD,9RXCS 

SEND COMMAND 

GO AWAIT "TR" 

011230 

004737 

012110 


CALL 

AWTR 

011234 

005737 

002454 


IBSDN: TST 

FIN 

IF FINI FLAG JS 

011240 

001005 



BNE 

XSETDN 

ZERO 

011242 

013777 

002372 

171102 

MOV 

VARIFY,3RXDB 

SEND VARIFY WORD 

WAIT FOR '‘DONE" OR INTERRUPT 

011250 

004737 

011610 


CALL 

WAIT 

011254 

004737 

011544 


XSETDN: CALL 

CDERCK 

CALL COMMAND ERROR CHECK 

011260 

004737 

012244 


CALL 

GETREG 

CALL GET DEV REGS 

011264 

000207 



RTS 

PC 

RETURN 
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2060 
2061 
2062 
2063 
2 06 A 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 


MOD U.DEV.RST - READ STATUS 

SUBR TO SEND READ STATUS COMMAND TO DEVICE. 


SBTTL - 

FUNCTIONAL DESCRIPTION: 

INPUTS: NONE 
IMPLICIT INPUTS: NONE 
OUTPUTS: READ STATUS TO RX 
IMPLICIT OUTPUTS: NONE 

SUBORDINATE ROUTINES USED: SETUP COMMANDS. WAIT ‘•DONE**. WAIT "TR" 
FUNCTIONAL SIDE EFFECTS: NONE 
CALLING SEQUENCE: 


2074 

011266 

004737 

01 1 634 


RDSTAT: CALL 

DVDNCK 

CALL DEVICE READY CHECK 

2075 

011272 

022737 

000060 

002520 

CMP 

INODNBT.ERRNBR 

IF ERRNBR NOT SET= 

2076 

011300 

001416 



BEQ 

XRDSTA 

'NO DONE BIT". THEN 

2077 

011302 

012737 

000013 

011542 

MOV 

#13.NCMD 

SET READ STATUS 

2078 

011310 

004737 

011502 


CALL 

SETSCD 

CALL SET SUBSVS COMMAND 

2079 

011314 

004737 

011462 


CALL 

SETDCD 

CALL SET DEVICE COMMAND - MOD U.DEV.SDC 

2C80 

011320 

013777 

002400 

171022 

MOV 

CMD.BRXCS 

SEND COMMAND 

GO AWAIT , t)ONE" OR INTERRUPT 

2081 

011326 

004737 

011610 


CALL 

WAIT 

2082 

011332 

004737 

012244 


CALL 

GETREG 

CALL GET DEV REGS 

2083 

011336 

000207 



XRDSTA: RETURN 


RETURN 


2084 
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2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 011340 004737 011634 

2102 011344 022737 000060 002520 

2103 011352 001440 

2104 011354 012737 000017 011542 

2105 011362 004737 011502 

2106 011366 o<*2-'37 000400 002400 
210701137s 0537:7 002366 002400 

2108 011402 0137:7 002400 1 70740 

2109 011410 004737 012110 

2110 011414 005737 002454 

2111 011420 001015 

2112 011422 013777 002364 170722 

2113 011430 004737 011610 

2114 011434 005737 002454 

2115 011440 001005 

2116 011442 052737 000200 002476 

2117 011450 004737 012244 

2118 011454 004737 011544 

2119 011460 000207 

2120 
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SBTTL - MOD U.DEV.REC - READ ERROR CODE 

FUNCTIONAL DESCRIPTION: SUBR TO SEND READ ERROR CODE TO DEVICE. 

INPUTS: EXTENDED ADDRESS BITS. F INI FLAG, SETUP COMMAND WORD 
IMPLICIT INPUTS: NONE 

OUTPUTS: READ ERROR CODE FLAG, READ ERROR CODE TO DRIVE, READ ERROR CODE NEW CMD 
IMPLICIT OUTPUTS: NONE 

SUBORDINATE ROUTINES USED: SET DEVICE CMD, WAIT. WAIT FOR ,, TR ,, . GET 

REG. CMD ERR CK 

FUNCTIONAL SIDE EFFECTS: NONE 
CALLING SEQUENCE: - 


RDERCD: CALL 

DVDNCK 

CALL DEVICE READY CHECK 

C.'AP 

#NODNBT.ERRNBR 

IF ERRNBR NOT SET= 

**0 DONE BIT", THEN 

BEQ 

XRDERC 

MOV 

#17.NCHD 

SET ERROR CODE COMMAND 

CALL 

SETSCD 

CALL SET SU8SYS COMMAND 

BIC 

IDENBIT.CMD 

CLEAR DENSITY BIT FROM CMD 

BIS 

EXTADR.CMD 

SET EXTENDED ADDRESS BITS 

MOV 

CMD.3RXCS 

SEND COWHAND 

CALL 

AWTR 

THEN GO AWAIT , 'TR" 

IBREC: TST 

FIN 

IF FINI FLAG 

BNE 

XRDERC 

EQUALS ZERO THEN 

MOV 

RECADR.3RXDB 

SET BASE ADDR FOR READ ERR CODE 

GO AWAIT "DONE" OR INTERRUPT 

CALL 

WAIT 

ICREC: TST 

FIN 

IF FINI FLAG 

BNE 

XRDERC 

NOT SET. THEN 

BIS 

#RECFLG,FLAGST 

SET PRINT ERROR CODE OR FLAG 

CALL 

GETREG 

CALL GET DEV REGS 

XRDERC: CALL 

CDERCK 

CALL COMMAND ERROR CHECK 

RTS 

PC 

RETURN 
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2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 


SBTTL - MOD U.DEV.CMD - SETUP DEVICE COMMAND 

FUNCTIONAL DESCRIPTION: SUBR TO SETUP DEVICE COMMAND WORD 

SET DRIVE 8 SIDE BITS 

INPUTS: NONE 

IMPLICIT INPUTS: SIDE 8 DRIVE BITS, COMMAND 
OUTPUTS: COMMAND WORD FOR DEVICE 
IMPLICIT OUTPUTS: NONE 
SUBORDINATE ROUTINES USED: NONE 
FUNCTIONAL SIDE EFFECTS: NONE 
CALLING SEQUENCE: SUBR 


- I.E., 


2138 

011462 

000240 



SETDCD: NOP 


9 

2139 

011464 

053737 

002406 

002400 

BIS 

DRIVE.CMD 

; SETUP DRIVE BIT 

2140 

011472 

053737 

002410 

002400 

BIS 

SIDE.CMD 

.•SETUP SIDE BIT 

2141 

■ji/.o 

Cl 1500 

000207 



RETURN 


.•RETURN 


2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 


2161 


2164 

2165 

2166 


.SBTTL - MOD U.DEV.SSC - SETUP SUBSYSTEM COMMANDS 

FUNCTIONAL DESCRIPTION: SUBR TO SETUP SUBSYSTEM COMMANDS - I.E. 

SET BITS THAT ARE NOT DRIVE RELATED 

INPUTS: NEW COMMAND 

IMPLICIT INPUTS: COMMAND, DENSITY, INTERRUPT BIT 
OUTPUTS: COMMAND 

IMPLICIT OUTPUTS: LAST COMMAND, PROTOCAL CTR 
SUBORDINATE ROUTINES USED: NONE 
FUNCTIONAL SIDE EFFECTS: NONE 
CALLING SEQUENCE: SUBR 


011502 

000240 



SETSCD: 

NOP 


« 

011504 

013737 

002400 

002424 


MOV 

CMD.LCHD 

.-SAVE LAST COMMAND 

011512 

013737 

011542 

002400 


MOV 

NCMD.CHD 

.•SETUP NEW COMMAND 

011520 

005037 

002472 



CLR 

PROTCT 

.•CLEAR TEST COMMAND PROTOCAL COUNTER 

011524 

053737 

002412 

002400 


BIS 

DENSTY.CMD 

.•SETUP DENSITY BIT 

011532 

053737 

002404 

002400 


BIS 

INTERT.CMD 

.■SETUP INTERRUPT 81 T 

011540 

000207 




RETURN 


9 

01154? 

000000 



NCMD : 

0 


.-NEW COMMAND 
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2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 
2181 
2182 

2183 

2184 


SBTTL * MOD U.DEV.CEC - DEVICE COMMAND ERROR CHECK 


FUNCTIONAL DESCRIPTION: SUBR TO CHECK FOR DEVICE COMMAU FATAL ERRORS. 
INPUTS: NONE 

IMPLICIT INPUTS: FIN FLAG, FLAGSCNEG TEST). ERR NBR 
OUTPUTS: NONE 

IMPLICIT OUTPUTS: ERROR CONDITION 
SUBORDINATE ROUTINES USED: ERROR 
FUNCTIONAL SIDE EFFECTS: DROP UNIT & CLEAN UP 
CALLING SEQUENCE: SUBR 


2185 

011544 

000240 


CDERCK: 

NOP 



2186 

011546 

005737 

002454 


TST 

FIN 

IF F INI FLAG 

2187 

011552 

001415 



BEQ 

XCEC 

SET, THEN 

2188 

011554 

005737 

002520 


TS T 

ERRNBR 

IF ERROR NUMBER 

2189 

011560 

001412 



BEQ 

XCEC 

N0T=0. THEN 

2190 

011562 

032737 

004000 002476 


BIT 

ANEGTST.FLAGST 

IF NEG TEST FLAG 

2191 

011570 

001006 



BNE 

XCEC 

NOT SET, THEN 

2192 

011572 

004737 

003060 


CALL 

ERROR 

CALL ERROR-MOD 

2193 

011576 




DODU 

UNIT 

DROP UNIT 

2194 

011604 




DOCLN 


DO CLEAN-UP 

2195 

011606 

000207 


XCEC: 

RETURN 


RETURN 


2196 
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2199 

2200 
2201 
2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 
2211 
2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 
2221 
2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 


.SBTTL - MOD U. DEV. WAT - WAIT SUBROUTINE 
♦ ♦ 

FUNCTIONAL DESCRIPTION: 

INPUTS: DEVICE COMMAND 
IMPLICIT INPUTS: NONE 
OUTPUTS: NONE 
IMPLICIT OUTPUTS: NONE 

SUBORDINATE ROUTINES USED: WATCH & A WAIT DONE 
FUNCTIONAL SIDE EFFECTS: NONE 
CALLING SEQUENCE: SUBR 


SUBR TO DETERMINE TO WAIT FOR ’‘DONE” OR INTERRUPTS 


011610 

032737 

000100 

002400 WAIT: 

BIT 

#100. CMD 

; IF COMMAND- INTERRUPT BIT 

011616 

001403 



BEQ 

1$ 

; SET, THEN 

011620 

004737 

011662 


CALL 

WATCH 

.-CALL WATCH DOG WAIT FOR INTERRUPT 

011624 

000402 



BR 

XWAIT 

;BR TO END 

011626 

004737 

012032 

1$: 

CALL 

AWDN 

.-ELSE. CALL WAIT FOR DONE 

011632 

000207 


XWAIT: 

RETURN 


.•RETURN 




9 

.SBTTL 

- MOD U 

.DEV.DRC - 

DEVICE DONE CHECK 


♦ ♦ 

FUNCTIONAL DESCRIPTION 
INPUTS: NONE 
IMPLICIT INPUTS: DONE BIT 
OUTPUTS: NONE 
IMPLICIT OUTPUTS: NONE 

SUBORDINATE ROUTINES USED: WATCH & A WAIT DONE 
FUNCTIONAL SIDE EFFECTS: NONE 
CALLING SEQUENCE: SUBR 


SUBR TO CK IF DEVICE IS READY TO ACCEPT A CMD 


011634 

011636 

011644 

011646 

011650 

011652 

011654 

011660 


005003 


• 

DVDNCK : CLR 

R3 

CLEAR REC 

032777 

000040 

170504 1$: BIT 

ADNBIT.BRXCS 

IF DEVICE DONE 

001005 


BNE 

XDVRCK 

NOT SET 

005203 


INC 

R3 

BUMP TIMEOUT COUNTER 

001372 


BNE 

BRESET 

1$ 

IF TIME OUT. THEN 

EXECUTE BUS RESET 

CALL A WAIT •■DONE" 

RETURN 

004737 

000207 

012032 

CALL 

XDVRCK : RETURN 

AWDN 
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2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 
2261 

2262 0Vo62 

2263 011666 

2264 011674 

2265 011700 

2266 011704 

2267 011710 

2268 011712 

2269 011720 

2270 011722 

2271 011730 

2272 011736 

2273 011740 

2274 011742 

2275 011744 

2276 011746 

2277 011750 

2278 011752 

2279 011760 

2280 011762 

2281 011770 

2282 011776 

2283 012000 

2284 012006 

2285 012014 

2286 012022 

2287 

2288 012024 

2289 012026 

2290 012030 

2291 


005037 

013704 

013703 

00573? 

001413 

032777 

001035 

012737 

012’37 

000426 

005303 

001357 

005304 

001353 

032777 

001407 

012737 

052737 

000406 

052737 

012737 

000207 

000010 

100000 

000000 


SBTTL - MOD U.DEV.WCH - WATCH DOG TIMER 

FUNCTIONAL DESCRIPTION: SUBR TO WATCH DOG DEVICE "DONE" & INTERRUPTS 

INPUTS: PROCESSOR LOW PRIORITY 

IMPLICIT INPUTS: DEVICE "DONE'’ ft INTERRUPTS 

OUTPUTS: DONE TIMEOUT ERROR, NO INTERRUPT ERROR 

IMPLICIT OUTPUTS: NONE 

SUBORDINATE ROUTINES USED: NONE 

FUNCTIONAL SIDE EFFECTS: NONE 

CALLING SEQUENCE: SUBR 


012030 


WATCH: 

012024 

012026 

012030 


BAUWCH: 

IBUWCH: 

000040 

170430 

ICUWCH: 

000014 

010000 

002520 

002460 

LBUWCH: 



UDUWCH: 

000040 

170370 

UAUWCH: 

IEUWCH: 

000015 

020000 

002520 

002460 


000020 

000060 

002456 

002520 

LEUWCH: 


XUWCH: 


CLR DNFLAG 

SETPRI PRIORT 

MOV DX,R4 

MOV DLY.R3 

T$T DNFLAG 

BcQ LBUWCH 

BIT #DNBIT,9RXCS 

8NE XUWCH 

MOV #INTNDN,ERRNBR 

MOV #BIT12,TYPERR 

BR XUWCH 

BREAK 

DEC R3 

BNE IBUWO: 

DEC R4 

BNE BAUWCH 

BIT #DNBIT,9RXCS 

BEQ LEUWCH 

MOV #DNNINT,ERRNBR 

BIS #BIT13,TYPERR 

BR XUWCH 

BIS #BIT4,SYSERR 

MOV #NODNBT,ERRNBR 

SETPRI #PRI06 

RTS PC 


CLEAR DONE FLAG 

SET PROCESSOR PRI - ALLOW INTERRUPTS 
SET DELAY MULT 
SET DELAY 

IF INTERRUPTS DONE FLAG 

IS SET, THEN 

IF DONT BIT 

IS NOT SET, THEN 

SET ERROR #=N0 DONE BIT 

SET INTERR, BUT NO DONE ERROR 

BR TO MOD ‘EXIT* 

DECREMENT DELAY COUNT 
DO UNIT DELAY C0UNT=0 
DECREMENT DELAY MULT 
DO UNTIL DELAY MULT=0 
IF DONE BIT IS 
SET, THEN 

SET ERR #=DONE, NO INTR 

SET DONE. BUT NO INTERRUPT ERROR 

BR TO MOD ’EXIT' 

SET NO DONE T.O. ERROR 

SET ERR #=N0 DONE BIT 

SET PROCESSOR PRI=6 - NO INTERRUPTS 

RETURN 


DX: 10 

DLY: 100000 

DNFLAG: 0 

;M0D U.2.3.4 END MODULE 


DELAY MULT 
DELAY 
DONE FLAG 
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2294 

2295 

2296 

2297 

2298 

2299 
2309 

2301 

2302 

2303 

2304 

2305 

2306 

2307 


.SBTTL - MOD U.DEV.UDN - AWAIT DONE BIT SUBROUTINE 
♦♦ 

FUNCTIONAL DESCRIPTION: SUBR TO WAIT FOR DEVICE "DONE" BIT 
INPUTS: TIKEOUT PASS COUNTER 

IMPLICIT INPUTS: DEVICE ‘•DONE’* BIT, (RXCSR), DONE WAIT MULTIPLIER 
OUTPUTS: "DONE" BIT TIMEOUT ERROR 
IMPLICIT OUTPUTS: NONE 

SUBORDINATE ROUTINES USED: GET DEVICE REGISTERS 
FUNCTIONAL SIDE EFFECTS: NONE 
CALLING SEQUENCE: SUBR 


2308 

012032 

005004 



AWDN: 

CLR 

R4 

RESET TIME OUT MULTIPLIER 

2309 

012034 

005003 



1$: 

CLR 

R3 

PRESET TIME OUT COUNTER 

2310 

012036 

032777 

000040 

170304 

2$: 

BIT 

*DNBIT,SRXCS 

SEE IF DONE SET 

2311 

012044 

001020 




BNE 

3$ 

IF SO: BR 

2312 

012046 





BREAK 


TEMPORARY RETURN TO MONITOR 

2313 

012050 

005203 




INC 

R3 

BUMP TIME OUT COUNTER 

2314 

012052 

001371 




BNE 

2$ 

IF NOT TIMED OUT: BR 

2315 

012054 

005204 




INC 

R4 

INCREMENT TIMEOUT MULTIPLIER 

2316 

012056 

023704 

002474 



CMP 

DNWTMT.R4 

IF ON 2ND 

2317 

012062 

101364 




BHI 

IS 

TIMEOUT PASS. THEN 

2318 

012064 

012737 

000060 

002520 


MOV 

#NODNBT,ERRNBR 

SET ERR #=N0 DONE BIT 

2319 

012072 

052737 

000020 

002456 


BIS 

#BIT4,SYSERR 

SET NO DONE BIT ON SYSTEM ERROR 

2320 

012100 

012737 

000001 

002454 


MOV 

#1 ,F IN 

EXIT THIS COMMAND 

2321 

012106 

000207 



3$: 

RTS 

PC 

EXIT 


2322 
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2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 


AWAIT TRANSFER READY SUBROUTINE 
SUBR TO WAIT FOR DEVICE *TR M BIT 


.SBTTL - MOD U.DEV.WTR - 

FUNCTIONAL DESCRIPTION: 

INPUTS : NONE 

IMPLICIT INPUTS: DEVICE "TR", "DONE" £ CSR. ESR 
OUTPUTS: "TR" TIMEOUT ERROR, NO DONE BIT. PROTOCAL COUNTER 
IMPLICIT OUTPUTS: NONE 

SUBORDINATE ROUTINES USED: GET DEVICE REGISTERS 
FUNCTIONAL SIDE EFFECTS: NONE 
CALLING SEQUENCE: SUBR 


012110 

005237 

002472 


AWTR: 

INC 

PROTCT 

INCREMENT TEST PROTOCAL COUNTER 

012114 

005004 




CLR 

R4 

PRESET TIMEOUT MULTIPLIER 

012116 

005003 



1$: 

CLR 

R3 

PRESET TIME OUT COUNTER 

012120 

032777 

000040 

170222 

2S: 

BIT 

RDNBIT.BRXCS 

IF DONE BIT 

012126 

001013 




BNE 

31 

NOT SET, THEN 

012130 

032777 

000200 

170212 


BIT 

tTRBIT.BRXCS 

SEE IF TRANSFER READY SET 

012136 

001041 




BNE 

5$ 

IF SO: BR 

012140 





BREAK 


TEMPORARY RETURN TO MONITOR 

012142 

005203 




INC 

R3 

BUMP TIME OUT COUNTER 

012144 

001365 




BNE 

2* 

IF NOT TIMED OUT: BR 

012146 

005204 




INC 

R4 

INCREMENT TIMEOUT MULTIPLIER 

012150 

022704 

000004 



CMP 

#4 ,R4 

IF ON 2ND 

012154 

101360 




BHI 

1$ 

TIMEOUT PASS. THEN 

012156 

012737 

000001 

002454 

3$: 

MOV 

#1 ,F IN 

EXIT THIS COMMAND 

012164 

052737 

000020 

002460 


BIS 

fCHDERR.TYPERR 

**** ERROR ON COMMAND **** 

012172 

013737 

002400 

002422 


MOV 

CMD.ERRCMD 

SETUP ERROR COMMAND 

SET ERR #*N0 'TR" BIT 

SET SYS ERR=NO 'TR" BIT 

012200 

012737 

000057 

002520 


MOV 

fNOTRBT.ERRNBR 

012206 

052737 

000200 

002456 


BIS 

#TRBIT,SYSERR 

012214 

032777 

000040 

170126 


BIT 

#DNBI T.BRXCS 

IF DONE BIT 

012222 

001004 




BNE 

4$ 

NOT SET. THEN 

012224 

052737 

000020 

002456 


BIS 

#BIT4,SYSERR 

SET NO DONE BIT EITHER 

012232 

000403 




BR 

5$ 

BR TO EXIT 

SET ERR REDONE" NO "TR" 

012234 

012737 

000063 

002520 

4$: 

MOV 

fDNNOTR.ERRNBR 

012242 

000207 



5$: 

RTS 

PC 

RETURN 
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2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 

2388 

2389 

2390 
"■591 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 


SBTTL - MOD U. DEV. REG - GET DEVICE REGISTERS 
♦ ♦ 

FUNCTIONAL DESCRIPTION: SUBROUTINE TO GET RX02 CSR 8 ESR 
INPUTS: NONE 

IMPLICIT INPUTS: DEVICE CSR & ESR 
OUTPUTS: DEVICE CSR 8 ESR 
IMPLICIT OUTPUTS: OLD CSR & ESR 
SUBORDINATE ROUTINES USED: NONE 
FUNCTIONAL SIDE EFFECTS: NONE 
CALLING SEQUENCE: SUBR 


012244 

013737 

002432 

002426 

GETREG: MOV 

RXCSR.LRXCSR 

;SAVE LAST 

CSR 


012252 

013737 

002434 

002430 

MOV 

RXESR.LRXESR 

.-SAVE LAST 

ESR 


012260 

017737 

170064 

002432 

MOV 

3RXCS.RXCSR 

.-GET RXCSR 

FOR 

PRINT 

012266 

012274 

017737 

000207 

170060 

002434 

MOV 

RETURN 

9RXDB.RXESR 

.-GET RXESR 
.-RETURN 

FOR 

PRINT 


012276 012737 000001 012030 

012304 000002 


SBTTL - MOD U.DEV.ITR - INTERRUPT HANDLER 
+ ♦ 

FUNCTIONAL DESCRIPTION: .-DEVICE INTERRUPT HANDLER 
INPUTS: NONE 

IMPLICIT INPUTS: DEVICE "DONE" BIT 8 INTERRUPT BIT 

OUTPUTS: DONE FLAG 

IMPLICIT OUTPUTS: NONE 

SUBORDINATE ROUTINES USED: NONE 

FUNCTIONAL SIDE EFFECTS: NONE 

CALLING SEQUENCE: DEVICE INTERRUPT 


INTRHD: MOV #1 .DNFLAG .‘SET DONE FLAG 

RTI .-RETURN FROM INTERRUPT 
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2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 
22 

2423 

242* 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 


SBTTL - MOD U.SFT.DPT - SET DATA PATTERN 


PAT # SUBROUTINE 


0 

1 

2 

3 

4 

5 

6 
7 


RANDAT 

DATAO 

DATA1 

FLOATO 

FL0AT1 

PAT125 

PAT333 

RANDAT 


DATA PATTERN 

NO PATTERN SPECIFIED (FORCE RANDOM DATA) 

ALL ZEROS 

ALL ONES 

FLOATING ZERO 

FLOATING ONE 

ALTERNATING 81 TS 

ALTERNATING PAIRS OF BITS 

RANDOM 


012306 

042737 

000377 

012372 

STDATP: BIC 

#377.a#BR0NPT 

.'CLEAR BRANCH OFFSET 

012314 

005037 

012654 


CLR 

SUM 

;SET UP FOR ACCUMULATION OF CHECK SUM 

012320 

005737 

012660 


TST 

PAT 

; IF NO PATTERN SPECIFIED FORCE PATTERN 7 

012324 

001003 



8NE 

IS 


012326 

012737 

000007 

012660 

MOV 

#7, PAT 


012334 

01 3704 

012660 


IS: MOV 

PAT.R4 

;GET PATTERN BITS 

012340 

005304 



DEC 

R4 

.ADJUST FOR CORRECT OFFSET 

012342 

006304 



ASL 

R4 


012344 

150437 

012372 


BISB 

R4,8f BRONPT 

.■INSERT OFFSET 

012350 

012704 

036224 


MOV 

#DATPAT*2.R4 

.'SET UP ADDRESS OF FIRST BYTE 

012354 

013705 

002370 


MOV 

WDCNT.R5 

.'SETUP WORD COUNT 

012360 

006305 



ASL 

R5 

.■DOUBLE WORD COUNT FOR ADR 

012362 

062705 

036222 


ADD 

#DATPAT,R5 

.ADD DATA PATTERN ADR 

012366 

162705 

000004 


SUB 

#4.R5 

;ADJ. FOR CHECKSUM 

012372 

000777 



BRONPT : BR 


.'BRANCH BY OFFSET SELECTED 

012374 

000137 

012430 


JMP 

DATAO 

.000 DATA BYTE 

012400 

000137 

012446 


JMP 

DATA1 

;377 DATA BYTE 

012404 

000137 

012456 


JMP 

FLOATO 

.'FLOAT A 0 THROUGH ALL I'S 

012410 

000137 

012524 


JMP 

FL0AT1 

.FLOAT A 1 THROUGH ALL O'S 

012414 

000137 

012532 


JMP 

PAT125 

.125/052 DATA WORD 

012420 

000137 

012556 


JMP 

PAT333 

.'314/063 DATA WORD 

012424 

000137 

012566 


JMP 

RANDAT 

.'RANDOM DATA BYTE 

012430 

005037 

012656 


DATAO: CLR 

DATBYT 


012434 

004737 

012614 


PG: JSR 

PC. LOAD 

;G0 LOAD THE DATA BUFFER 

012440 

005705 



TST 

R5 

;IF R5 

012442 

001463 



BEO 

END131 

.-NOT =0 .THEN 

012444 

000773 



BR 

PG 


012446 

112737 

000377 

012656 

DATA1 : MOVB 

#377, DATBYT 


012454 

000767 



BR 

PG 


012456 

112737 

000376 

012656 

FLOATO: MOVB 

#376, DATBYT 

.'SET UP A ONES FIELD 

012464 

000261 



XPG: SEC 

; SET THE C BIT TO ROTATE THROUGH THE DAT 
; CLR R2 (CAN'T USE “CLR*' AS IT CLEARS “C 

012466 

012702 

000000 


IS: MOV 

#0.R2 

012472 

103001 



8CC 

2S 

;8R IF THE "C" BIT IS CLEARED 

012474 

005202 



INC 

R2 

;SET R2 IF NOT 

012476 

004737 

012614 


2S: JSR 

PC. LOAD 

;G0 LOAD THE DATA BUFFER 

012502 

005705 



TST 

R5 

;IF R5 

012504 

001442 



BEQ 

END131 

.'NOT ZERO THfcN 

012506 

000241 



CL C 



012510 

005702 



TST 

R2 

; IS R2 NONZERO 

012512 

001401 



BEO 

3S 


012514 

000261 



SEC 


;YES. SET THE -C" BIT 


BIT) 



G 6 


SEC 71 
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MOD U.SFT.DPT - SET 

DATA PATTERN 




2466 012516 

2467 012522 

106137 

000761 

012656 


3$: R0LB 

BR 

DATBYT 

IS 


cmOO 

2469 012524 

2470 012530 

■3/ 71 

005037 

000755 

012656 


FL0AT1: CLR 

BR 

DATBYT 

XPG 


CM ( I 

2472 012532 

2473 012540 

2474 012544 

2475 012546 

2476 012550 

2477 012554 

*3/ 7fl 

112737 

004737 

005705 

001421 

105137 

000771 

000125 

012614 

012656 

012656 

PAT125: MOVB 
XXPG: JSR 

TST 

BEQ 

COMB 

BR 

#125. DATBYT 

PC. LOAD 

R5 

END131 

DATBYT 

XXPG 

IF R5 

NOT ZERO THEN 

CM 'O 

2479 012556 

2480 012564 

2481 

112737 

000765 

000333 

012656 

PAT 333: MOVB 

BR 

#333. DATBYT 

XXPG 


2482 012566 

2483 012572 

2484 012600 

2485 012604 

2486 012606 

2487 012610 

0 / flfl 

004737 

113737 

004737 

005705 

001401 

000766 

010344 

010436 

012614 

012656 

RANDAT: JSR 
MOVB 
JSR 

TST 

BEQ 

BR 

pc.rangen 

RANUM. DATBYT 

PC, LOAD 

R5 „ 

END131 

RANDAT 

GET RANDOM NUMBER 

IF R5 

NOT ZERO THEN 

CHOO 

2489 012612 

0/.OA 

000207 



END131 : RTS 

PC 

RETURN. 

CM7U 

2491 

2492 

2493 




# 



2494 012614 

2495 012622 

2496 012626 
249? 012630 

2498 012632 

2499 012634 

2500 012640 

2501 012644 

2502 012650 

2503 012652 

7C A/ 

063737 

113724 

020504 

001401 

000407 

113724 

005137 

113714 

005005 

000207 

012656 

012656 

012654 

012654 

012654 

012654 

LOAD: ADD 

MOVB 
CMP 

BEQ 

BR 

IS: «)VB 

COM 
MOVB 
CLR 

ENDLD: RTS 

DATBYT. SUM 
DATBYT, <R4)* 
R5.R4 

IS 

ENDLD 

SUM. (R4)+ 

SUM 

SUM, (R4) 

R5 

PC 

ACCUMULATE THE PATTERN CHECK SUM 

LOAD THE DATA BUFFER 

HAVE 124 BYTES BEEN GENERATE* 

IF YES, RETURN 

IF NO. RETURN TO PATTERN GENERATOR 

PUT CHECKSUM INTO TABLE 

COMPLIMENT CHECKSUM 

PUT COMP CHECK. SUM INTO TABLE 

CLEAR TEMP #5 - FLAG DONE MODULE 

RETURN 

2505 012654 

2506 012656 

2507 012660 

2508 

000000 

000000 

000000 



SUM: 0 

DATBYT: 0 

PAT: 0 

;MOD 1.3.1 

— END MODULE 
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SEQ 72 
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MOD U.SFT.GTK - GET 

TRACK 





25M 





.SBTTL - MOD 

U.SFT.GTK - GET TRACK 

2512 





_ 










2513 








2514 

012662 

000240 



GETTRK: NOP 



2515 

012664 

032737 

000400 

002510 

IAGTK: BIT 

*itk,tkscfg 

IF INITIALIZE TRK IS 

2516 

012672 

001423 



BEQ 

ICGTK 

SET, THEN 

2517 

012674 

042737 

000400 

002510 

BIC 

#ITK,TKSCFG 

RESET INITIALIZE TRK FLG 

2518 

012702 

013737 

002336 

013100 

MOV 

ID, TRKCNT 

GET INSIDE TRACK 

2519 

012710 

163737 

002334 

013100 

SUB 

OD, TRKCNT 

GET OUTSIDE TRACK 

2520 

012716 

005237 

013100 


INC 

TRKCNT 

INCREMENT # OF TRACKS 

2521 

012722 

013737 

002334 

002374 

MOV 

OD. TRACK 

SET TRACKsO.D. 

2522 

012730 

005337 

002374 


DEC 

TRACK 

DECREMENT TRACK 

2523 

012734 

042737 

001000 

002476 

BIC 

#TRKDON,FLAGST 

CLEAR TRACK DONE FLAG 

2524 

012742 

032737 

000004 

002510 

ICGTK: BIT 

#ILTK,TKSCFG 

IF TK/SC FLAGS=ILLEGAL TRACK 

2525 

012750 

001416 



BEQ 

LBGTK 

BIT SET, THEN 

2526 

012752 

012737 

000115 

002374 

MOV 

#77., TRACK 

SET TRACK=77=ILLEGAL TRACK 

2527 

012760 

052737 

001000 

002476 

BIS 

#trkdon.flagst 

SET TRACK DONE FLAG 

2526 

012766 

000443 



BR 

XGTK 

BR TO EXIT 

2529 

012770 

032737 

000001 

002510 

IBGTK : BIT 

#STK.TKSCFG 

IF TK t SE FLAG=SEQ TRK FLAG 

2531 

013000 

005237 

002374 


INC 

TRACK 

INCREMENT TRACK 

2532 

013004 

000426 



BR 

EBGTK 

BR TO END *8' 

2533 

013006 

004737 

010344 


LBGTK: CALL 

RANGE N 

GET A RANDOM NUMBER 

2534 

013012 

042737 

177600 

010436 

BIC 

#1 77600, RANUH 

CLEAR ALL BUT LOy 7 BITS 

2535 

013020 

123737 

010436 

002336 

IDCOMP: CMPB 

RANUM, ID 

IF RANUM LARGER THAN ID ADDRESS 

2536 

013026 

003401 



BLE 

ODCOMP 

THEN 

2537 

013030 

000766 



BR 

LBGTK 

BR TO GET ANOTHER RANDOM NUMBER 

2538 

013032 

123737 

010436 

002334 

ODCOMP: CMPB 

RANUM, OD 

IF RANUM SMALLER THAN OD ADDRESS 

2539 

013040 

002001 



BGE 

PRESCK 

THEN 

2540 

013042 

000761 



BR 

LBGTK 

BR TO GET ANOTHER RANDOM NUMBER 

2541 

013044 

123737 

010436 

002374 

PRESCK: CMPB 

RANUM, TRACK 

IF RANUM EQUALS PRESENT TRACK 

2542 

013052 

001755 



BEQ 

LBGTK 

GET ANOTHER RANDOM NUMBER 

2543 

013054 

013737 

010436 

002374 

MOV 

RANUM, TRACK 

RANUM OK PUT IT IN TARGET TRACK 

2544 

013062 

005337 

013100 


EBGTK: DEC 

TRKCNT 

IF TOTAL # OF TRACKS 

2545 

013066 

001003 



BNE 

XGTK 

DONE. THEN 

2546 

013070 

052737 

001000 

002476 

BIS 

#TRKDON,FLAGST 

THEN SET TRACK DONE FLAG 

2547 

2548 

013076 

000207 



XGTK: RTS 

PC 









2549 

013100 

000000 



TRKCNT: .yORD 

0 

DRV TRK TABLE LOCATOR 

2550 

2551 

013102 

000000 



INITTK: .WORD 

0 

INITIALIZE TRK FLAG 
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- MOD U.SFT.GSC - GET SECTOR 


2554 




.SBTT'. 

- MOD 

2555 




# 


2556 






2557 013104 

000240 



GETSEC: 

NOP 

2558 013106 

032737 

001000 

002510 

IAGSC: 

BIT 

2559 013114 

001411 




BEQ 

2560 013116 

042737 

001000 

002510 


BIC 

2561 013124 

012737 

000001 

002376 


MOV 

2562 013132 

042737 

002000 

002476 


BIC 

2563 013140 

105737 

002510 


IBGSC: 

TSTB 

2564 013144 

001416 




BEQ 

2565 013146 

062737 

000001 

002376 


ADD 

2566 013154 

022737 

000033 

002376 


CMP 

2567 013162 

101030 




BHI 

2568 013164 

012737 

000001 

002376 


MOV 

2569 013172 

052737 

002000 

002476 


BIS 

2570 013200 

000421 




BR 

2571 013202 

004737 

010344 


BCGSC: 

CALL 

2572 013206 

042737 

177740 

010436 


BIC 

2573 013214 

123727 

010436 

000033 

UCGSC : 

CMPB 

2574 013222 

103367 




BHIS 

2575 013224 

105737 

010436 


IDGSC : 

TSTB 

2576 013230 

001002 




BNE 

2577 013232 

105237 

010436 



INCB 

2578 013236 

113737 

010436 

002376 

EDGSC: 

MOVB 

2579 013244 

000207 



XGSC: 

RTS 


2580 


I 6 


SEQ 7 3 


U.SFT.GSC - GET SECTOR 


#ISC ,TKSCFG 
IBGSC 

#ISC,TKSCFG 
#1. SECTOR 
#SECDON,FLAGST 
TKSCFG 
BCGSC 
#1 -SECTOR 
#33, SECTOR 
XGSC 

#1. SECTOR 

#SECDON,FLAGST 

XGSC 

RANGEN 

#1 77740. RANUM 

RANUM, #27. 

BCGSC 

RANUM 

EDGSC 

RANUM 

RANUM, SEC TOR 
PC 


IF TK/SC FLAGS=INI7 SECTORS BIT 
SET, THEN 
CLEAR THE FLAG 
SET SECTORS 

CLEAR FLAGST-SECTOR DONE FLAG 
IF SEQUENCE SECTOR 
SET, THEN 

BUMP SECTOR ADDRESS 
IF SECTORS 
DONE, THEN 
SET SECTORS 

SET FLAGST-SECTOR DONE FLAG 
BR EXIT 

BGN DO 'C’-CALL RANDOM NO. GENERATOR 
CLEAR TOP BITS RANDOM NUM. 

DOUNTIL RANNUM < 27. 

IF RANDOM NO. 

EQUALS ZERO, THEN 

SET RANNUM = 1 

SET SECTOR ADR = RANDOM NO. 



J 6 


SEC 74 
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- MOD U.SFT.DCK - DATA CHECK 


2583 




.SBTTL 

- MOD U.SFT.DCK - DATA CHECK 

C 








2585 








2586 013246 

005037 

013520 


DATACK: 

CLR 

DAERCT 

CLEAR DATA ERR COUNT 

2587 013252 

052737 

000100 

002500 


BIS 

fHDRPRT.FLAGSP 

SET p*:int header flag 

2588 013260 

013737 

002370 

013514 


MOV 

UDCNT, BYTCNT 

SAVE UORD COUNT 

2589 013266 

006337 

013514 



ASL 

BYTCNT 

DOUBLE IT SO BYTE COUNT 

2590 013272 

005037 

013516 



CLR 

BYTNUM 

CLEAN byte NUMBER 

2591 013276 

013705 

013516 


BADCK : 

MOV 

BYTNUM. R5 

SETUP BYTE NUMBER FOR AUTO INDEX 

2592 013302 

116501 

036222 



MOVB 

DATPAT (R5) .R1 

SET TEMP#1=DATA SOURCE BYTE 

2593 013306 

116502 

036622 



MOVB 

DATBUF (R5) ,R2 

SET TEMP#2=DATA BUFFER BYTE 

2594 013312 

120102 



1BDCK: 

CMPB 

R1 R2 

IF SOURCE BYTE t BUFFER BYTE 

2595 013314 

001465 




6EQ 

EBDCK 

NOT EQUAL 

2596 013316 

005237 

013520 



INC 

DAERCT 

INCREMENT DATA ERR COUNT 

2597 013322 

023727 

013520 

000012 

IEDCK : 

CMP 

DAERCT. #10. 

IF OVER 10 DATA ERRORS 

2598 013330 

103404 




BLO 

TFDCK 

THEN 

2599 013332 

032737 

000020 

002332 

IFDCK: 

BIT 

#20.SUREG 

IF PRINT ONLY 10 DATA ERROR FLAG 

2600 013340 

001053 




BNE 

EBDCK 

IS NOT SET. THEN 

2601 013342 

110137 

013522 


TFDCK : 

MOVB 

R1. DATASB 

GET DATA SHOULD BE->PRINT 

2602 013346 

110237 

01 3524 



MOVB 

R2.DATAUS 

GET DATA WAS->PRINT 

2603 013352 

032737 

000100 

002500 

IMDCK: 

BIT 

#HDRPRT,FLAGSP 

IF PRINT HEADER 

2604 013360 

001431 




BEQ 

EMDCK 

OK, THEN 

2605 013362 

042737 

000100 

002500 


BIC 

#HDRPRT.FLAGSP 

CLEAR PRINT HFADER 

2606 013370 

012737 

000005 

002520 


MOV 

fDATER.ERRNBR 

SETUP ERR N8R= DATA ERR 

2607 013376 

004737 

003060 



CALL 

ERROR 

CALL ERROR 

2608 013402 

032737 

000020 

002476 

INDCK: 

BIT 

#EHBUFF .FLAGST 

IF EMPTY SUFFER BIT 

2609 013410 

001011 




BNE 

ENDCK 

NOT SET, THEN 

2610 013412 

012701 

013526 



MOV 

#DMSG1B,R1 

SETUP MSG FORMAT 

2611 013416 

013702 

002374 



MOV 

TRACK. R2 

SETUP TRACK # PRT 

2612 013422 

013703 

002376 



MOV 

SECTOR. R3 

SETUP SECTOR # PRT 

2613 013426 

004737 

002612 



CALL 

PRTB2S 

CALL PRINT BASIC-2 ARG 

2614 013432 

000400 




BR 

ENDCK 

BR TO END *N' 

2615 013434 

012701 

013561 


ENDCK : 

MOV 

fDMSGl.RI 

SETUP MSG FORMAT 

2616 013440 

004737 

002550 



CALL 

PRTBOS 

CALL PRINT BASIC-0 ARG 

2617 013444 

012701 

013615 


EMDCK: 

MOV 

#DMSG2.R1 

SETUP MSG FORMATE 

2618 013450 

013702 

013516 



MOV 

BYTNUM. R2 

SETUP BYTE # 

2619 013454 

013703 

013522 



MOV 

DATASB. R3 

SETUP DATA SHOULD BE 

2620 013460 

013704 

013524 



MOV 

DATAUS.R4 

SETUP DATA WAS 

2621 013464 

004737 

002636 



CALL 

PRTB3S 

CALL PRINT BASIC-3 ARG 

2622 013470 

005237 

013516 


EBDCK : 

INC 

BYTNUM 

INCREMENT BYTE # 

2623 013474 

005337 

013514 



DEC 

BYTCNT 

DECREMENT BYTE COUNT 

2624 013500 

005737 

013514 


UADCK: 

TST 

BYTCNT 

DOUNTIL BYTE COUNT 

2625 013504 

003274 




BGT 

BADCK 

EOUALS 0 

2626 013506 

004737 

013642 


ENDDCK: 

CALL 

CLRDAT 

CALL CLEAR DATA BUFFER 

2627 013512 

000207 




RTS 

PC 

RETURN 

coco 






* m 


2629 013514 

000000 



8YTCNT: 

0 


BYTE COUNT 

2630 013516 

000000 



BYTNUM: 

0 


BYTE NUMBER 

2631 013520 

000000 



DAERCT: 

0 


DATA ERR COUNT 

2632 013522 

000000 



DATASB: 

0 


DATA SHOULD BE 

2633 013524 

000000 



DA TAWS: 

0 


DATA WAS 

co3*» 

2635 013526 

045 

116 

045 

DMSG1B: 

.ASCIZ 

/ZNZA TRK#ZD3ZA. 

SEC#ZD2ZA./ 

2636 013561 

045 

116 

045 

DMSG1 : 

.ASCIZ 

/ZNZA BYTE#ZS2ZAGOODZS6ZABAD/ 

2637 013615 

045 

116 

045 

DMSG2 : 

.ASCIZ 

/ZNZS3ZD3ZS2ZB8ZS2ZB8/ 

2638 

2639 





.EVEN 
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- MOD U.SFT.CD6 - CLEAR DATA BUFFER 


2642 



.SBTTL 

- MOD U 

.SFT.CDB - 

CLEAR DATA BUFFER 

c 6*0 
v/ / 



• 




cu**** 

2645 013642 

012705 

036622 

CLRDAT: 

MOV 

#DATBUF.R5 

;GET BEGIN OF DATA BUFFER 

2646 013646 

012704 

000200 


MOV 

#128.. R4 

; SET WORD LENGTH OF TABLE 

2647 013652 

005025 


BACDB: 

CLR 

<R5)* 

.'CLEAR WORD IN DATA BUFFER TABLE 

2648 013654 

005304 



DEC 

R4 

.‘DECREMENT WORD COUNT 

2649 013656 

005704 



TST 

R4 

;D0 UNTIL 

2650 013660 

001374 


UACDB: 

3NE 

BACDB 

;ALL TABLE WORDS ZEROED 

2651 013662 

2652 

000207 



RETURN 


.•RETURN 
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SEQ 76 
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- MOD U.SFT.RCR - REGISTER CHECK i REPORT 


2655 

2656 

2657 

2658 

2659 

2660 
2661 
2662 

2663 

2664 

2665 

2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

2674 

2675 

2676 

2677 

2678 

2679 

2680 
2681 
2682 

2683 

2684 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 


SBTTL - MOD U.SFT.RCR - REGISTER CHECK l REPORT 


BGNSUB 


ENDSU8 


IF F INI FLAG NOT SET 
THEN- 

GET TEST TABLE ADDRESS 
DOUNTIL TEST TABLE ENTRY=-1 
: ADVANCE TEST TABLE ADDRESS 
ENDDO 

ADVANCE TEST TABLE ADDRESS 
GET COMMAND COUNTER 
DOUBLE COMMAND COUNTER 

ADDRESS OF REG TABLE THIS CMD=CMD COUNTER ♦ TEST TABLE ADR 
GET ADDRESS OF REG TABLE THIS COMMAND 
SET RXCSR COMPARE WORD=COMPARE WORD FROM TABLE 

SET RXCSR MASK WORD=DON'T CARE BITS FROM REG TABLE 

SET RXESR COMPARE UORD=COMPARE WORD FROM TABLE 

SET RXESR MASK WORD=DON’T CARE BITS FROM REG TABLE 

SETUP CSR REG CK 
IF RXCSR NOT=CSRCHP 
: THEN-CALL CK BITS 
END IF 

SETUP ESR REG CK 
IF ESR NOT=ESRCMP 
: THEN-CALL CK BITS 
ENDIF 

ENDIF 

GET REGISTER ERR TABLE PTR 
TERMINATE ERROR TABLE 
ENDIF 
NOP 


013664 

000240 



REGSCK: NOP 


013666 

005037 

014670 


CLR 

RGETPT 

013672 

005737 

002454 


IARCR: TST 

FIN 

013676 

001160 



BNE 

EARCR 

013700 

004737 

014276 


CALL 

SURGCK 

013704 

013701 

002466 


MOV 

TSTID,R1 

013710 

005721 



UBRCR: TST 

(R1 ) ♦ 

013712 

100401 



BMI 

EBRCR 

013714 

000775 



BR 

U8RCR 

013716 

013702 

002470 


EBRCR: MOV 

TCMDCT.R2 

013722 

006302 



ASL 

R2 

013724 

060201 



ADD 

R2.R1 

013726 

011103 



MOV 

(R1).R3 

013730 

012337 

014260 


MOV 

<R3)*,CSRCMP 

013734 

012337 

014262 


MOV 

<R3)*,CSRMSK 

013740 

012337 

014264 


MOV 

(R3) *,ESRCMP 

013744 

011337 

014266 


MOV 

(R3I.ESRMSK 

013750 

013701 

002432 


CSRCHK: MOV 

RXCSR. R1 
#1 720$?. R1 

013754 

042701 

172027 


BIC 

013760 

043701 

014262 


BIC 

CSRMSK.R1 

013764 

043737 

014262 

014270 

BIC 

CSRHSK, CSRSET 

013772 

053737 

014270 

01426G 

BIS 

CSRSET, CSRCMP 

014000 

023701 

014260 


CMP 

CSRCMP.R1 


CLEAR REG ERROR TABLE PTR 

IF FINI FLAG 

NOT SET, THEN 

CALL SETUP REGS CHECK 

GET TEST TABLE ADDRESS 

DO UNTIL TEST TABLE ENTRY 

EQUALS -1. ADVANCE TEST TABLE ADRS 

END DO *8' 

GET TEST COMMAND CTR 

DOUBLE COMMAND CTR 

CAL ADRS OF REG TABLE FOR THIS CMD 

GET ADRS FROM TEST TABLE 

SET RXCSR COMPARE UORD=TABLE CSR CMP 

SET RXCSR MASK WORD=TABLE CSR MSK 

SET RXESR COMPARE WORD= TABLE ESR CMP 

SET RXESR MASK WORD=TABLE ESR MSK 

GET RXCS 

CLEAR OFF WRITE ONLY BIT-CK DRV SELECT BIT ***• 

MASK OFF 31 TS DON’T CARE ABOUT 

MASK OFF CSRSET BITS DON’T CARE 

SET CSR COMMAND VARIABLE BITS 

IF RXCS CONTAINS 



M 6 
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- MOD U.SFT.RCR - REGISTER CHECK & REPORT 

2712 0K004 0G1437 BEQ 4$ 

27 13 Q 14006 013737 014260 002436 MOV CSRCMP. REGEXP 

2714 014014 010137 002440 MOV R1 ,REGACT 

2715 014020 032737 000002 002332 BIT #FUNCTT.SWREG 

2716 014026 001403 BEQ 1$ 

2717 014030 005237 014274 INC FTERCT 

2718 014034 000420 BR 3$ 

2719 014036 010137 014702 1$: MOV R1.BADWRD 

2720 01 4042 013737 014260 014700 MOV CSRCMP. CMPWRD 

2721 014050 012737 000004 014676 MOV #4,8IT0FF 

2722 014056 012737 000014 014674 MOV #12.,BITLIM 


2723 014064 

012737 

014776 

014704 

2$: MOV 

#CSERTB.RTBADR 

2724 014072 

004737 

014522 


CALL 

CKBITS 

2725 014076 

012701 

100000 


3$: MOV 

#ERRFLG,R1 

2726 014102 

000401 



BR 

XCSRCK 

2727 014104 

005001 



4$: CLR 

R1 

, 2728 014106 

050137 

002476 


XCSRCK: BIS 

R1. FLAGST 

I 2729 014112 

013701 

002434 


ESRCHK: MOV 

RXESR.R1 
#1 76000. R1 

2730 014116 

042701 

176000 


BIC 

2731 014122 

043701 

014266 


BIC 

ESRMSK. R1 

2732 014126 

043737 

014266 

014272 

BIC 

ESRMSK, ESRSET 

2733 014134 

2734 014142 

053737 

014272 

014264 

BIS 

ESRSET, ESRCMP 

023701 

014264 


CMP 

ESRCMP, R1 

2735 014146 

001431 



BEQ 

4$ 

2736 014150 

032737 

000002 

002332 

BIT 

#FUNCTT.SWREG 

2737 014156 

001403 



BEQ 

IS 

2738 014160 

005237 

014274 


INC 

FTERCT 

2739 014164 

000417 



BR 

3$ 

2740 014166 

010137 

014702 


1$: MOV 

R1 .BADWRD 

2741 014172 

013737 

014264 

014700 

MOV 

ESRCMP, CKPORD 

2742 014200 

005037 

014676 


CLR 

BITOFF 

2743 014204 

012737 

000014 

014674 

MOV 

#12. .BITLIM 

2744 014212 

012737 

014746 

014704 

2$: MOV 

#ESERTB,RTBADR 

2745 014220 

004737 

014522 


CALL 

CKBITS 

2746 014224 

012701 

100000 


3$: MOV 

#ERRFLG,R1 

2747 014230 

000401 



BR 

XESRCK 

2748 014232 

005001 



4$: CLR 

R1 


2749 014234 050137 002476 XESRCK: BIS R1.FLAGST 

2750 014240 013705 014670 E ARCR: MOV RGETPT.R5 

2751 014244 006305 ASL R5 

2752 014246 012765 177777 014706 MOV #-1 .RGERTB(R5) 

2753 014254 000240 NOP 

2754 014256 000207 XREGCK: RTS PC 

2755 

2756 014260 000000 CSRCMP: 0 

2757 014262 000000 CSRMSK: 0 

2758 014264 000000 ESRCMP: 0 

2759 014266 000000 ESRMSK: 0 

2760 014270 000000 CSRSET: 0 

2761 014272 000000 ESRSET : 0 

2762 014274 000000 FTERCT: 0 

2763 


SEQ 77 


ERRORS. THEN 
SAVE EXPECTED 
SAVE ACTUAL 
IF FUNCTION TEST 
MODE. THEN 

INCREMENT ERROR COUNT 

BR TO REST OF SETUP 

SET BAD WORD 

SET COMPARE WORD 

SET 0 BITS TO OFFSET WORD 

SET 0 BITS TO CHECK 

SET REG TAB ADR=CSR 

FIND BAD BITS t RELATED ERR 0 

SET ER r 

BR TO END 

CLEAR ERRORS 

SET FLAGST ERR BIT-IF ERRORS 
GET RXES 

MASK OFF BITS NOT USED IN RXES 
MASK OFF BITS DON'T CARE ABOUT 
FmSK OFF ESRSET BITS DON'T CARE 
S:T ESR COMMAND VARIBLE BITS 
IF BX'.S CONTAINS 
ERRORS. THEN 
IF FUNCTION TEST 
MODE, THEN 

INCREMENT ERROR COUNT 

BR TO REST OF SETUP 

SET BAD WORD 

SET COMPARE WORD 

SET BIT OFFSET 

SET 0 BITS TO CHECK 

SET REG ERR TAB ADR=ESR 

FIND BAD BITS & RELATED ERR 0 

SET ERR 

BR TO END 

CLEAR ERRORS 

SET TEST ERROR FLAG. IF ERRORS 
GET REG ERR TBL PTR 

DOUBLE REG ERROR TAB PTR FOR ADDRESSING 
TERMINATE TBL 

RETURN 


CSR COMPARE WORD 

CSR MASK WORD 

ESR COMPARE WORD 

ESR MASK WORD 

CSR SET - SETUP REGS CK 

ESR SET - SETUP REGS CK 

FUNCTION TEST ERROR COUNTER 
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2766 .SBTTL - MOD U.SFT.SRC - SETUP 

2767 


2768 014276 000240 

2769 014300 005037 

2770 014304 032737 

2771 014312 001406 

2772 014314 042737 

2773 014322 042737 

2774 014330 013705 

2775 014334 042705 

2776 014340 022705 

2777 014344 001015 

2778 014346 032737 

2779 014354 001011 

2780 014356 013737 

2781 014364 013737 

2782 014372 013737 

2783 014400 013705 

2784 014404 010537 

2785 014410 042737 

2786 014416 032705 

2787 014422 001403 

2788 014424 052737 

2789 014432 032705 

2790 014436 001403 

2791 014440 052737 

2 7 92 014446 032705 

2793 014452 001403 

2794 014454 052737 

2795 014462 042705 

2796 014466 005737 

2797 014472 001411 

2798 014474 022705 

2799 014500 001403 

2800 014502 022705 

2801 014506 001003 

2802 014510 052737 

2803 014516 000240 

2804 014520 000207 

2805 




SURGCK 

014272 

040000 

002400 

IGSRC: 

001000 

002400 


000400 

002400 

002400 

EGSRC: 

177761 

000016 


IASRC : 

000200 

002500 

IF SRC : 

002424 

002400 


002426 

002432 


002430 

002400 

014270 

002434 

EASRC : 

176277 

001000 

014270 

I8SRC: 

001000 

000020 

014272 

ICSRC : 

000400 

000400 

014272 

IDSRC: 

000040 

177761 

014272 

EDSRC: 

002402 


IE SRC: 

000006 



000014 



000100 

014272 

1$: 


EESRC: 
XSRC : 


NOP 


CLR 

ESRSET 

BIT 

#RXINIT,CMD 

BEQ 

EGSRC 

BIC 

fSIDE1.CMD 

BIC 

#DRIVE1 , CMD 

MOV 

BIC 

CMD.R5 
#1 7?761. R5 

CMP 

#16. R5 

BNE 

EASRC 

BIT 

#RECTST. FLAGSP 

BNE 

EASRC 

MOV 

LCMD.CMD 

MOV 

LRXCSR. RXCSR 

MOV 

LRXESR, RXESR 

MOV 

CMD.R5 

MOV 

R5.CSRSET 

BIC 

#176277, CSRSET 

BIT 

#SIDE1,R5 

BEQ 

ICSRC 

BIS 

#SIDE1, ESRSET 

BIT 

#DRV1,R5 

BEQ 

IDSRC 

BIS 

#DRIVE1. ESRSET 

BIT 

#DENBIT,R5 

BEQ 

EDSRC 

BIS 

#DRVDEN, ESRSET 

BIC 

#1 77761. R5 

TST 

DELDAT 

BEQ 

EESRC 

CMP 

#RSCMD,R5 

BEQ 

It 

CMP 

#WDDCMD,R5 

BNE 

EESRC 

BIS 

NOP 

RETURN 

#DLDBIT,ESRSET 


SEC 78 


REGISTER CHECK 


CLEAR ESR SET 

if cmd was rx initialize 

.'HEN 

CLEAR SIDE #1 SELECT BIT 

CLEAR DRIVE #1 SELECT BIT 

GET COMMAND 

CLEAR ALL BUT COMMAND 

IF COMMAND = READ ERROR CODE 

THEN 

IF FLAGSP NOT=REC TEST 
THEN 

SET COMMAND= LAST COMMAND 
GET LAST RXCSR 
GET LAST RXESR 
GET COMMAND 
SETUP CRS SET 

SAVE ONLY: SIDE. DENS, INTR ENA, (DRV SEL CK) BITS 

IF SIDE #1 SELECTED 

THEN 

SETUP ESR SET -> S I DEI 
IF DRIVE #1 SELECTED 
THEN 

SETUP ESRSET -> DRJVE1 
IF DOUBLE DENSITY SELECTED 
THEN 

SETUP ESR SET = DOUBLE DENSITY 
CLEAR ALL BUT COMMAND 
IF DELETED DATA MODE 
AND 

COMMAND=READ SECTOR 
OR 

COMMAND-WRITE DELETED DATA SECTOR 
THEN 

SETUP ESR SET ->DELETED DATA BIT 


RETURN 
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2808 

2809 

2810 

2811 014522 

2812 014526 

2813 014532 

2814 014534 

2815 014536 

2816 014542 

2817 014544 

2818 014546 

2819 014552 

2820 014554 

2821 014560 

2822 014562 

2823 014564 

2824 014570 

2825 014572 

2826 014576 

2827 014602 

2828 014604 

2829 014610 

2830 014612 

2831 014616 

2832 014620 

2833 014622 

2834 014624 

2835 014630 

2836 014632 

2837 014636 

2838 014642 

2839 014646 

2840 014650 

2841 014652 

2842 014660 

2843 014662 

2844 014666 

2845 

2846 014670 

2847 014672 

2848 014674 

2849 014676 

2850 014700 

2851 014702 

2852 014704 

2853 


.SBTTL - MOD U.SFT.BTK - BITS S 


013702 

013701 

040201 

005102 

053702 

005102 

050201 

C05737 

001407 

005337 

000241 

006001 

005737 

001371 

005037 

032701 

001417 

013702 

006302 

063702 

011203 

005703 

001407 

013704 

006304 

010364 

005237 

005237 

000241 

006001 

023737 

101346 

005037 

000207 

000000 

000000 

000000 

000000 

000000 

000000 

000000 


014700 

014702 


014702 


014676 

014676 


014676 

014672 

000001 

014672 

014704 


014670 

014706 

014670 

014672 


014674 014672 
014672 


CKBITS: MOV 
MOV 
BIC 
COM 
BIS 
COM 
BIS 
TST 
BEQ 

1$: DEC 

CLC 
ROR 
TST 
8NE 

2$: CLR 

3$: BIT 

BEQ 
MOV 
ASL 
ADD 
MOV 
TST 
BEQ 
MOV 
ASL 
MOV 
INC 

4$: INC 

CLC 
ROR 
CMP 
8HI 
CLR 

XCRBIT: RETURN 


CMPWRD.R2 

BADURD.R1 

R2.R1 

R2 

SADWRD.R2 

R2 

R2,R1 

BITOFF 

2 $ 

BITOFF 

R1 

BITOFF 

1 $ 

BITCNT 

#1.R1 

4$ 

BITCNT. R2 
32 

RTBADR.R2 

(R2).R3 

R3 

4$ 

RGETPT.R4 

R4 

R3.RGERTBCR4) 

RGETPT 

BITCNT 

R1 

BITLIH, BITCNT 
3$ 

BITCNT 


RGETPT: 0 
BITCNT: 0 
BITLIM: 0 
BITOFF: 0 
CMPURD: 0 
8ADURD: 0 
RTBADR: 0 


SEQ 79 


SET CHECK 


GET COMPARE UORD 
GET BAD UORD 

SET R1=BITS THAT SHOULDN'T BE SET 
COMPLIMENT COMPARE WORD 
SET BAD BITS 

SET R2=B1TS THAT SHOULD BE SET 

SET R1=ALL BITS THAT SHOULD OR SHOULDN'T BE SET 

IF BIT OFFSET 

N0T=0, THEN 

CLEAR CARRY 

IF BIT OFFSET 

EQUALS 0. THEN 

CLEAR BIT COUNTER 

IF LSB 

N0T=0. THEN 

GET BIT COUNTER 

DOUBLE IT FOR ADDRESSING 

ADD REG TABLE ADR 

GET ERR# THIS BIT ERROR FROM TABLE 

IF ERR # 

N0T=0, THEN 

SET UP REG ERR TABLE POINTER 

DOUBLE IT FOR ADDRESSING 

SET THIS ERR# IN TABLE OF REG ERRORS 

ADVANCE TABLE POINTER TO NEXT LOCATION 

INCREMENT BIT COUNTER 

CLEAR CARRY 

SHIFT NEXT BIT FOR TEST 
IF ALL BITS SPECIFIED 
DONE. THEN 
RESET BIT COUNT 
RETURN 


REG ERROR TABLE POINTER 
BIT COUNTER 
BIT StGISTER LIMIT 
BIT REGISTER OFFSET 
COMPARE WORD 
BAD WORD 

REGISTER ERROR TABLE ADDRESS 



C 7 


SEC 80 
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- MOD U.SFT.BTK - BITS SET/NOT SET CHECK 

2856 

2857 

2858 014706 

2859 014710 

2860 014712 

2861 014714 

2862 014716 

2863 014720 

2864 014722 

2865 014724 

2866 014726 

2867 014730 

2868 014732 

2869 014734 

2870 014736 

2871 014740 

2872 014742 

2873 014744 

2874 

2875 

2876 
7877 

2878 014746 

2879 014750 

2880 014752 

2881 014754 

2882 014756 

2883 014760 

2884 014762 

2885 014764 

2886 014766 

2887 014770 

2888 014772 

2889 014774 

2890 

2891 

2892 


PAGE 97 


REGISTER ERROR #' S - TABLE 


000000 

RGERTB: 

.WORD 

0 


177777 


.WORD 

•1 


177777 


.WORD 



177777 


.WORD 

-1 


177777 


• WORD 

-1 


177777 


.WORD 

-1 


177777 


.WORD 



177777 


.WORD 

-1 


177777 


.WORD 

-1 


177777 


.WORD 

•1 


177777 


.WORD 

-1 


177777 


.WORD 

-1 


177777 


.WORD 

-1 


177777 


.WORD 

-1 


177777 


.WORD 



177777 


.WORD 

— 1 



t 

# 


TABLE - ESR ERROR #'S 

000004 

ESERTB: 

.WORD 

CRCERR 

BIT #00 - CRC ERR 

000024 


.WORD 

SDRDYE 

BIT #01 - SIDE 1 RDY 

000062 


.WORD 

NOITDP 

BIT #02 - INI T DONE 

004050 


.WORD 

ACLOWF JNEGTST 

BIT #03 - AC LOW 

004030 


.WORD 

DENERRiNEGTST 

BIT #04 - DEN ERR 

004020 


.WORD 

DENDSK1NEGTST 

BIT #05 - DRV DEN— >NOT ERROR 

000032 


.WORD 

DLDTER 

BIT #06 - DEL DATA 

000025 


.WORD 

DVRDYE 

BIT #07 - DRV RDY 

000027 


.WORD 

DRVWRG 

BIT #08 - UNIT SEL 

000026 


.WORD 

S1DWRG 

BIT #09 - HEAD SEL 

004051 


.WORD 

WCOVFEiNEGTST 

BIT #10 - WC OVFL 

004052 


.WORD 

NXMERRJNEGTST 

BIT #11 - NXM 


TABLE - CSR ERROR #’S 


2894 

014776 

000033 

CSERTB: .WORD 

CSRERR 

BIT 

#04 - UNIT SEL 

- R/W 

2895 

015000 

000033 

.WORD 

CSRERR 

BIT 

#05 - •DONE'* 

- R 

2896 

015002 

000033 

.WORD 

CSRERR 

BIT 

#06 - INTER ENB 

- R/W 

2897 

015004 

000033 

.WORD 

CSRERR 

BIT 

#07 - , 7R" 

• R 

2898 

015006 

000033 

.WORD 

CSRERR 

BIT 

#08 - DENSITY 

- R/W 

2899 

015010 

000033 

.WORD 

CSRERR 

BIT 

#09 - HEAD SEL 

- R/W 

2900 

015012 

000033 

.WORD 

CSRERR 

BIT 

#10 - 


2901 

015vsl4 

000033 

.WORD 

CSRERR 

BIT 

#11 - RX02 

- R 

2902 

015016 

000033 

.WORD 

CSRERR 

BIT 

#12 - 

- W 

2903 

015020 

000033 

.WORD 

CSRERR 

BIT 

#13 - 

- W 

2904 

015022 

000033 

.WORD 

CSRERR 

BIT 

#14 - 

- w 

2905 

015024 

000033 

.WORD 

CSRERR 

BIT 

#15 - ERR BIT 

- R 


2906 
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PRESETUP REGISTER TABLES 


2909 

1Q1 A 



.SBTTL 

PRESETUP REGISTER 

TABLES 



IU 









2911 









2912 


000000 

TN=0 






2913 

015026 


REGTB 

1 ,04040,0,0.-1 


;RXCS 

ONLY 



015026 

004040 


T0RT1 : 

.WORD 

04040 

.-RXCSR 

SHOULD BE 


015030 

000000 



.WORD 

0 

;RXCSR 

DONT CARE 


015032 

000000 



• WORD 

0 

;RXESR 

SHOULD BE 


015034 

177777 



• WORD 

-1 

;RXESR 

DONT CARE 

2914 

015036 


REGTB 

2,04040.0.0,0 


:RXCS 

& RXES/ALL 



015036 

004040 


T6RT2: 

.WORD 

04040 

;RXCSR 

SHOULD BE 


015040 

000000 



.WORD 

0 

;RXCSR 

DONT CARE 


015042 

000000 



.WORD 

0 

;RXESR 

SHOULD BE 


015044 

000000 



.WORD 

0 

;RXESR 

DONT CARE 

2915 

015046 


REGTB 

3.04040.0.4.177773 

;RXCS 

£ RXES INITIALIZE CK 



015046 

004040 


10RT3: 

.WORD 

04040 

;RXCSR 

SHOULD BE 


015050 

000000 



.WORD 

0 

;RXCSR 

DONT CARE 


015052 

000004 



.WORD 

4 

;RXESR 

SHOULD BE 


015054 

177773 



.WORD 

177773 ;RXESR 

DONT CARE 

2916 

015056 


REGTB 

4.04040.0.204. 

1440 

;RXCS 

£ RXES INITIALIZE ALL CK 



015056 

004040 


T0RT4 : 

.WORD 

64040 

;RXCSR 

SHOULD BE 


015060 

000000 



.WORD 

0 

;RXCSR 

DONT CARE 


015062 

000204 



.WORD 

204 

;RXESR 

SHOULD BE 


015064 

001440 



.WORD 

1440 

;RXESR 

DONT CARE 

2917 

015066 


REGTB 

5.04040.0.200. 

60 

;RXCS 

8 RXES READ STATUS CK 



015066 

004040 


T6RT5: 

.WORD 

04040 

;RXCSR 

SHOULD BE 


015070 

000000 



.WORD 

0 

.-RXCSR 

DONT CARE 


015072 

000200 



.WORD 

200 

,-RXESR 

SHOULD BE 


015074 

000060 



.WOR" 

60 

;RXESR 

DONT CARE 

2918 

015076 


REGTB 

6.04040.0,0.1440 

;RXCS £ RXES NO DISK OPERATION 



015076 

004040 


T0RT6: 

.WORD 

04040 

; RXCSR 

SHOULD BE 


015100 

000000 



.WORD 

0 

; RXCSR 

DONT CARE 


015102 

000000 



.WORD 

0 

;RXESR 

SHOULD BE 

*301 O 

015104 

001440 



.WORD 

1440 

;RXESR 

DONT CARE 

Ci 1 V 









2920 


015026 

CSONLY 

= T0RT1 


;RXCS 

ONLY 


2921 


015036 

CSESAL 

= T0RT2 


;RXCS 

£ RXES ALL 


29 22 


015046 

CE INI T 

= T0RT3 


;RXCS 

£ RXES INITIALIZE CK 


2923 


015056 

CSESIT 

= T0RT4 


;RXCS 

£RXES INITIALIZE ALL 


2924 


015066 

CSESRS 

= T0RT5 


;RXCS 

£ RXES READ STATUS CK 


2925 

2926 


015076 

CSESND 

= T0RT6 


;RXCS 

£ RXES NO DISK OPERATION 
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2929 





.sbttl 

- MOD 

U. SET. GEN - GET ERROR CODE-ERR # 


2930 

2931 

2932 














• 





015106 

005002 



GTECEN: 

CLR 

R2 

CLEAR TEMP REG #2 


2933 

015110 

105737 

002442 


IAGEN: 

TSTB 

XERUUT 

IF X ERR CODE UUT 


2934 

015114 

001422 




BEQ 

XGTECN 

N0T=0, THEN 


2935 

015116 

122737 

000260 

002442 

IBGEN: 

CMPB 

#260, XERUUT 

IF ERR CODE UUT 


2936 

015124 

101003 




6 Hi 

L8GEN 

EXCEEDS 260, THEN 


2937 

015126 

012702 

000017 



MOV 

#ILLERC,R2 

SET ERR CODE * 

BR TO END 'B* 


2938 

015132 

000407 




BR 

EBGEN 


2939 

015134 

052737 

100000 

002476 

LBGEN: 

BIS 

#ERRFLG,FLAGST 

SET FLAGS-ERR FLAG 


2940 

015142 

004737 

017106 



CALL 

GTECOF 

CALL GET ERROR CODE OFFSET 


2941 

015146 

016102 

015164 



MOV 

ECERNT (R1 ) ,R2 

GET ERROR CODE ERR # FROM TABLE 

2942 

015152 

010237 

002462 


EBGEN: 

MOV 

R2.RECERN 

READ ERR CODE ERR # 


2943 

015156 

010237 

020164 



MOV 

R2,ECERNB 

■PASS ERR CODE ERR # TO "ERRCHK MOD 

2944 

015162 

000207 



XGTECN: 

RETURN 

■RETURN 


2945 





_ 



» at m 











2946 










2947 

2948 





» 

ERROR 

CODE ERROR # TABLE 












2949 










2950 

015164 

000000 



ECERNT: 

.WORD 


00->N0 ERROR 

- 

2951 

015166 

000006 




.WORD 

SEKERR 

1 0->N0 HOME DRVO 

-SEEK 

2952 

015170 

000006 




.WORD 

SEKERR 

20->N0 HOME DRV1 

-SEEK 

2953 

015172 

000017 




.WORD 

ILLERC 

30-> — 

- 

2954 

015174 

004041 




.WORD 

TRKAER'.NEGTST 

40->ACC TK > 76 

-TRACK ERR 

2955 

015176 

000006 




.WORD 

SEKERR 

50->HOME BEFORE TRK 

-SEEK 

2956 

015200 

000017 




.WORD 

ILLERC 

60- > — 

- 

2957 

015202 

004003 




.WORD 

RDERR INEGTST 

70->N0 SEC-52 TRIES 

-READ 

2958 

015204 

000017 




.WORD 

ILLERC 

1 00— > — 

• 

2959 

015206 

000003 




.WORD 

RDERR 

1 1 0->NO STEP CLOCK 

-READ 

2960 

015210 

000003 




.WORD 

RDERR 

1 20->N0 PREAMBLE 

-READ 

2961 

015212 

000003 




.WORD 

RDERR 

130->PRE AMBLE -NO I.D. 

-READ 

2962 

015214 

000017 




.WORD 

ILLERC 

1 40— > — 

- 

2963 

015216 

000006 




.WORD 

SEKERR 

150->GD TRK NOT=TRK 

-SEEK 

2964 

015220 

000003 




.WORD 

RDERR 

160->T00 MY TRIES IDAM 

-READ 

2965 

015222 

000003 




.WORD 

RDERR 

170->DATA AM NOT FND 

-READ 

2966 

015224 

000004 




.WORD 

CRCERR 

200->CRC 

-CRC 

2967 

015226 

0C0017 




.WORD 

ILLERC 

2 1 0-> — 

- 

2968 

015230 

000056 




.WORD 

HDSFDG 

220->SELF DIAG 

-SELF DIAG 

2969 

015232 

004051 




.WORD 

WCOVFE INEGTST 

230->WRD COUNT OVF 

-WRD CTOV 

2970 

015234 

004030 




.WORD 

DENERRINEGTST 

240->DENSITY ERR 

-DEN ERR 

2971 

2972 

015236 

004036 




.WORD 

SDKYWD'.NEGTST 

250->WRG KEYWD-S.D. 

-WRG KEY 
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2975 




.SBTTL 

- MOD 

2976 




# 


2977 






2978 015240 

012701 

015446 


PRTSTA: 

MOV 

2979 015244 

013702 

002512 



MOV 

2980 015250 

013703 

002432 



MOV 

2981 015254 

013704 

002434 



MOV 

2982 015260 

013705 

002400 



MOV 

2983 015264 

004737 

002664 



CALL 

2984 015270 

005737 

002400 


IBSTA: 

TST 

2985 015274 

001417 




BEQ 

2986 015276 

032737 

040000 

002400 

ICSTA: 

BIT 

2987 015304 

001403 




BEQ 

2988 015306 

012701 

007452 



MOV 

2989 015312 

000406 




BR 

299C 015314 

013705 

002400 


LCSTA: 

MOV 

2991 015320 

042705 

177761 



B1C 

2992 015324 

016501 

007164 



MOV 

2993 015330 

004737 

002550 


ECSTA: 

CALL 

2994 015334 

032737 

000200 

002476 

IASTA: 

BIT 

2995 015342 

00H35 




BEQ 

2996 015344 

004737 

015744 



CALL 

2997 015350 

004737 

017124 



CALL 

2998 015354 

012701 

015531 



MOV 

2999 015360 

113702 

002443 



M0V8 

3000 015364 

1 1 3703 

002444 



MOVB 

3001 015370 

1 1 3704 

002445 



MOVB 

3002 015374 

004737 

003002 



CALL 

3003 015400 

012701 

015627 



MOV 

3004 015404 

113702 

002446 



MOVB 

3005 015410 

113703 

002447 



MOVB 

3006 015414 

1 1 3704 

002450 



MOVB 

3007 015420 

113705 

002451 



MOVB 

3008 015424 

004737 

003030 



CALL 

3009 015430 

042737 

000200 

002476 


BIC 

3010 015436 

005037 

015444 


XPTSTA: 

CLR 

3011 015442 

000207 




RTS 


3012 ; 

3013 015444 000000 ERRREG: 0 


3014 

3015 015446 

045 

116 

045 

IDENT1: 

.ASCI 2 

3016 015531 

045 

116 

045 

XER2: 

.ASCIZ 

3017 015627 

3018 

3019 

045 

116 

045 

XER3: 

0 

.ASCiZ 

.EVEN 




F 7 


SEC 83 


.PRT.STA - PRINT UNIT STATUS 


#IDENT1 ,R1 

SETUP FORMAT MSG 

UNTPRT.R2 

SETUP UNIT PRT 

RXCSR.R3 

SETUP RXCSR 

RXESR,R4 

SETUP RXESR 

CMD.R5 

SETUP COMMAND 

PRTB4S 

CALL PRINT BASIC 4-PARM. 

CMD 

IF CMD 

IASTA 

NOT - 0, THEN 

fBIT14.CMD 

IF PROG INIT 

LCSTA 

THEN 

#CMDM8,R1 

SETUP PROG INIT MSG 

ECSTA 

BR TO END *C’ 

CMD.R5 

GET COMMAND 

#177761 ,R5 

CLR ALL BUT CMD 

CMDMSG(R5) ,R1 

GET CMD MSG 

PRTBOS 

CALL PRINT BASIC 0 - PAR 

#recflg,flagst 

IF ERR CODE FLAG 

XPTSTA 

SET, THEN 

PRTECD 

CALL PRINT ERROR CODE 

CLRRGS 

CALL CLEAR REGISTER 

#XER2.R1 

SETUP FORMAT MSG 

WC.P2 

SETUP WORD COUNT 

CTK0.R3 

SETUP CTKO 

CTK1.R4 

SETUP CTK1 

PRTX3S 

CALL PRINT-EXT 3 PARAMETERS 

#XER3,R1 

SETUP FORMAT MSG 

TTRK.R2 

SETUP TTRK 

TSEC.R3 

SETUP TSEC 

SFTSTS.R4 

SETUP SF TST S 

BTRK.R5 

SETUP BTRK 

PRTX4S 

CALL PRINT-EXT 4 PAR 

#recflg,flagst 

CLEAR ERROR CODE FLAG 

ERRREG 

CLEAR ERROR REGISTER 

PC 

RETURN 


/ZNZA UNlTfZOlZA RXCSR=XOZA RMESR=XOXA CMD=XOXA ->/ 

/ZNZA WORD CNT=X03XNXA CUR TRK DV0=XD2XA. CUR TRK DVl=XD2XA./ 

/ZNZA TARGET TRK =XD2XA. TARGET SEC =ZD2ZA. SOFT $TAT=X03XA BAD TRK=XD2XA.X 



G 7 


SEC 84 


GLOBAL AREAS 
- MOO U.PRT.EC 

30 22 

3023 

3024 

3025 015744 

3026 015750 

3027 015754 

3028 015760 

3029 015764 

3030 015770 

3031 01577? 

3032 015776 

3033 016002 

3034 016006 

3035 016012 

3036 

3037 016014 

3038 

3039 

3040 

3041 016044 

3042 016046 

3043 016050 

3044 016052 

3045 016054 

3046 016056 

3047 016060 

3048 016062 

3049 016064 

3050 016066 

3051 016070 

3052 016072 

3053 016074 

3054 016076 

3055 016100 

3056 016102 

3057 016104 

3058 016106 

3059 016110 

3060 016112 

3061 016114 

3062 
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. SBTTL - MOD U.PRT.EC - PRINT UNIT ERROR CODE 


012701 

016014 

• 

PRTECD: 

MOV 

#XER1 ,R1 

SETUP rORMAT MSG 

113702 

002442 


MOVB 

XERUUT ,R2 

GET ERROR CODE 

042702 

177400 


BIC 

#1 77400, R2 

CEAR TOP R 2 

004737 

002734 


CALL 

PRTX1S 

CALL PRINT EXTENDED-1 ARC 

105737 

002442 


TS T3 

XERUUT 

IF ERROR 

001410 



BEO 

ENDXER 

NOT=0, THEN 

004737 

017106 


CALL 

GTECOF 

CALL GET ERROR CODE OFFSET 

016101 

016042 


MOV 

ECTAB-2(R1).R1 

SET ADR OF ERROR MSG FOR PRINT 

004737 

002714 


CALL 

PRTXOS 

CALL PRINT EXTENDED-NO ARC 

105037 

002442 


CLRB 

XERUUT 

CLEAR ERROR CODE 

000207 


ENDXER: 

RTS 

PC 

RETURN 

045 

116 

045 XER1: 

.ASCIZ 

/XNXA ERR CODE=X03ZA ->/ 




.EVEN 



016136 


• 

EC TAB: 

.WORD 

EC 1 


016175 



.WORD 

EC2 


016116 



.WORD 

ECO 


016234 



.WORD 

EC4 


016274 



.WORD 

EC5 


016116 



.WORD 

ECO 


016337 



.WORD 

EC7 


016116 



.WORD 

ECO 


016407 



.WORD 

EC11 


016451 



.WORD 

EC12 


016477 



.WORD 

E C 1 3 


016116 



.WORD 

ECO 


016567 



.WORD 

EC 1 5 


016640 



.WORD 

EC16 


016670 



.WORD 

EC17 


016716 



.WORD 

EC20 


016116 



.WORD 

ECO 


016753 



.WORD 

EC22 


017013 



.WORD 

EC23 


017033 



.WORD 

EC24 


017052 



.WORD 

EC25 




H 7 


SEC 85 


GLOBAL AREAS 

UNIT ERROR 

3065 

3066 

3067 016116 

3068 016136 

3069 016175 

3070 

3071 016234 

3072 016274 

3073 

3074 016337 
3C , 5 

3076 016407 

3077 016451 

3078 016477 

3079 016550 

3080 016567 

3081 Oi.6640 

3082 015670 

3083 016716 

3084 

3085 016753 

3086 017013 

3087 01 7f 133 

3088 017052 

3089 

3090 

3091 

3092 

3093 

3094 017106 

3095 017112 

3096 017114 

3097 017116 

3098 017122 

3099 

3100 

3101 

3102 

3103 

3104 017124 

3105 017126 

3106 017130 

3107 017132 

3108 017134 

3109 017136 

3110 
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.SBTTL - UNIT ERROR CODE MESSAGES 


045 

101 

040 

ECO: 

•ASCII 

/XA ILL ERR CODE/ 

045 

101 

116 

EC 1 : 

•ASCII 

/XANO HOME ON INITIALIZE DRV 0./ 

045 

101 

116 

EC2: 

•ASCIZ 

/XANO HOME ON INITIALIZE DRV 1./ 




;EC3: 

•ASCII 

/XAILL ERR CDE./ 

045 

101 

124 

EC4: 

•ASCIZ 

/XATRIED TO ACCESS A TRACK > 76./ 

045 

101 

110 

EC5: 

•ASCIZ 

/XAHOME FOUND BEFORE DESIRED TRACK./ 




; E C 6 : 

•ASCIZ 

/XAILL ERR CDE,/ 

0.5 

101 

065 

EC 7: 

•ASCIZ 

/XA52 HEADERS PASSED t SECTOR NOT FOUND./ 




;EC10: 

•ASCIZ 

/XAILL ERR CDE./ 

045 

101 

116 

EC11: 

•ASCIZ 

/XANO STEPCLK SEEN IN 40 MICROSEC./ 

045 

101 

120 

EC 1 2 : 

•ASCIZ 

/XAPREAMBLE NOT FOUND./ 

045 

101 

120 

EC13: 

•ASCIZ 

/XAPREAMBLE FOUND BUT NO ID MARK IN TIME./ 

045 

101 

111 

EC14: 

• ASCIZ 

/XAILL ERR CDE./ 

045 

101 

107 

EC 1 5 : 

•ASCIZ 

/XAGOOD HEADER TRACK ADR NOT=SELECTED TRK/ 

045 

101 

111 

EC16: 

•ASCIZ 

/XAIDAM->TOO MANY TRIES./ 

045 

101 

116 

EC17: 

•ASCIZ 

/XANO DATA AM IN TIME./ 

045 

101 

103 

EC20: 

•ASCIZ 

/XACRC ERR ON READING SECTOR./ 




; EC21 : 

•ASCIZ 

/XAILL ERR CDE./ 

045 

101 

122 

EC 22: 

•ASCIZ 

/XAR-W ELECT. FAILED MAINT. TST./ 

045 

101 

127 

EC23: 

•ASCIZ 

/XAWORD CNT OVF ./ 

045 

101 

104 

EC24: 

•ASCIZ 

/XADENSITY ERR./ 

045 

101 

123 

EC25: 

•ASCIZ 

/XASET DENSITY URG KEY WORD./ 




• 

• EVEN 





. SBTTL 

- MOD U.SFT.GEO - GET ERROR CODE OFFSET 

013701 

002442 


• 

GTECOF : 

NOV 

XERUUT.R1 .-SAVE EXTENDED ERROR CODE IN TEMP #1 

006201 




ASR 

R1 .-FORMAT E.C, 

006201 




ASR 

R1 ; FORMAT E.C. FOR ADR 

042701 

177700 



BIC 

#1 77700. R1 ;CLR TOP BYTE 

000207 




RETURN 

; PE TURN 




• 

.SBTTL 

- MOD U 

.SFT.CRS - CLEAR REGISTERS 

005001 



9 

CLRRGS: 

CLR 

R1 

005002 




CLR 

R2 

005003 




CLR 

R3 

005004 




CLR 

R4 

005005 




CLR 

R5 

000207 




RETURN 

; RE TURN 
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- MOD U.SFT.DSC - DEVICE STATE CHECK 


3113 

3114 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3148 


017140 

017144 

017150 

017152 

017156 

017160 

017164 

017166 

017174 

017200 

017204 

017210 

017216 

017220 

017222 


SBTTL - HOD U.SFT.DSC - DEVICE STATE CHECK 


BGNSUB 


IF RXuS ERROR BIT SET 
THEN 

IF RXCS DONE BIT SET 
THEN 

IF RXES ACLOW BIT SET 
THEN-SETUP ERROR 

SETUP MSG->"NO PUR, CABLED BACK, RX01 STRAP, PDP-8‘* 
CALL ERROR 
SETUP DROP UNIT 
DO DROP UNIT 

ENDIF 


ENDSUB 


ENDIF 


ENDIF 


013701 

002350 


DVSTCK: 

MOV 

RXCS,R1 

SET R1=RXCS ADDRESS 

032711 

100000 


IADSC : 

BIT 

#ERRBIT,(R1) 

IF RXCS REG=ERR BIT 

001423 




BEQ 

EADSC 

SET, THEN 

032721 

000040 


IBDSC: 

BIT 

ffDNBIT, CR1 )♦ 

IF RXCS REG=DONE BIT 

001420 




BEQ 

EADSC 

SET, THEN 

032711 

000010 


ICDSC: 

BIT 

#ACL0W,(R1> 

IF RXES REG=AC LOW BIT 

001415 




BEQ 

EADSC 

SET, THEN 

012737 

000050 

002520 


MOV 

fACLOWF .ERRNBR 

SET ERR NBR=AC LOW FATAL ERROR 

004737 

003060 



CALL 

ERROR 

CALL ERROR 

012701 

017222 



MOV 

#STATER,R1 

SET MSG-VNO PWR, CABLE BACK.. 

004737 

002550 



CALL 

PRTBOS 

CALL PRINT BASIC-NO ARG 





DODU 

UNIT 

DROP UNIT 





DOCLN 


DO CLEAN 

000207 



EADSC : 

RETURN 


RETURN 

045 

116 

045 

STATER: 

.ASCI2 

/XNXA * >N0 PUR. CABLED BACKWARDS. STRAPPED RX01 


.EVEN 
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3151 

3152 

3153 

31 54 

3155 
i156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 


SBTTL - MOD U.SFT.DRC - DEVICE READY CHECK 


BGNSUB 


ENDSUB 


CALL CLEAR DEVICE 
IF RXES DRV RDY NOT SET 

THEN-SET SYS ERR-DRV RDY ERR 
SETUP ERR * DRV RDY ERR 
CALL ERR 

ENDIF 


CA3 


3164 

017310 

000240 



DVRYCK: 

NOP 




3165 

017312 

004737 

010472 



CALL 

CLRDEV 

CALL CLEAR DEVICE 


3166 

017316 

032777 

000200 

163026 

IADRC : 

BIT 

#DRVRDY,BRXDB 

IF RXDB-DRIVE RDY 


3167 

017324 

001010 




BNE 

EADRC 

NOT SET, THEN 


3168 

017326 

052737 

000040 

002456 


BIS 

#BIT$,SYSERR 

SET SYS ERR=DRV RDY 

ERR 

3169 

017334 

012737 

000025 

002520 


MOV 

fDVRDYE.ERRNBR 

SET ERR N0R=DRV RDY 

ERROR 

3170 

017342 

004737 

003060 



CALL 

ERROR 

CALL ERROR 


3171 

017346 

000207 



EADRC: 

RETURN 


8R TO EXIT 



3172 



K 7 


SEC 86 


GLOBAL AREAS MACRO M1200 14-DEC-82 16:33 PAGE 112 
- MOD U.SFT.DDC - DEVICE DENSITY CK 


3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 


017350 
017354 
01 7362 
017364 
017370 
017376 

3206 017402 

3207 017406 
017410 
017416 

3210 017420 

3211 017426 

3212 017430 

3213 017454 

3214 017442 
01 7446 
017452 
017456 
017460 

3219 017462 

3220 017464 
017470 
017472 
017500 
017504 
017512 
017514 


3208 

3209 


3215 

3216 

3217 

3218 


3221 

3222 

3223 

3224 

3225 

3226 

3227 


004737 

032737 

001054 

005037 

012737 

004737 

005737 

001042 

032777 

001404 

012737 

000402 

005037 

012737 

004737 

017701 

042701 

006301 

006301 

006301 

020137 

001411 

012737 

004737 


000207 


SBTTL - MOD U.SFT.DDC - DEVICE DENSITY CK 


BGNSUB 


CALL DEVICE READY CK 
IF SYS ERR=DEVICE READY ERR NOT SET 
THEN-SET TRACK=0, SECTOR=10 
CALL READ SECTOR 

IF F INI NOT SET CAD 

THEN 

IF RXES DRIVE DENSITY=DOUBLE DEN LB3 

: THEN-SET DENSITY STATUS=DOUBLE DENSITY 
: ELSE-SET DENSITY STATUS=SINGLE DENSITY 
END I F 

SET TRACK=76, SECT0R=10 
CALL READ SECTOR 

IF RXES DRIVE DENSITY NOT=DENSITY STATUS CCD 
THEN- 

SETUP ERROR # l ERROR MSG=>"DISKETTE-MIXED DENSITY" 
CALL ERROR 
DO DROP UNIT 

ENDIF 




; ENDIF 

; ENDSUB 

ENDIF 


017310 


DENCHK : 

CALL 

DVRYCK 

CALL DEVICE READY CK 

000040 

002456 

IDDDC : 

BIT 

#BIT5,SYSERR 

IF SYS ERR=DEVICE RDY ERR 




BNE 

EADDC 

NOT SET, THEN 

002374 



CLR 

TRACK 

SET TRACK=0 

000012 

002376 


MOV 

#10., SECTOR 

SET SECTOR=10 

011062 



CALL 

READ 

CALL READ SECTOR 

002454 


IADDC: 

TST 

FIN 

IF F INI 




BNE 

EADDC 

NOT SET, THEN 

000040 

162734 

IBDDC: 

BIT 

#DRVDEN,dRXDB 

IF DRIVE DEN-DOUBLE DEN BIT 




BEO 

LBDDC 

SET, THEN 

000400 

002414 


MOV 

#DENBIT. DENSTA 

SET DENSITY STATUS=DOUBLE DEN 




BR 

EBDDC 

BR TO END *8* 

002414 


LBDDC : 

CLR 

DENSTA 

SET DENSITY STATUS=SINGLE DEN 

000114 

002374 

EBDDC : 

MOV 

#76.. TRACK 

SET TRACK=76. 

011062 



CALL 

READ 

CALL READ SECTOR 

162700 



MOV 

dRXDB.RI 

GET RXES 

177737 



BIC 

#*CDRVDEN,R1 

CLEAR ALL BUT DRIVE DENSITY 




ASL 

R1 

ADV DRIVE DENSITY 




ASL 

R1 

SO EOUAL TO 




ASL 

R1 

DENSITY STATUS 

002414 


ICDDC: 

CMP 

R1. DENSTA 

IF RXES DRIVE DENSITY 8 DENSITY STATUS 




BEQ 

EADDC 

NOT=, THEN 

000020 

002520 


MOV 

#DENDSK,ERRNBR 

SET ERR NBR=DISK DENSITY ERROR 

003060 



CALL 

ERROR 

CALL ERROR-MOD 




DODU 

UNIT 

DROP UNIT 




DOCLN 


DO CLEAN 



EADDC : 

RETURN 


RETURN 
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3230 

3231 

3232 

3233 

3234 

3235 

3236 
323? 

3238 

3239 

3240 

3241 
5242 

3243 

3244 
5245 

3246 

3247 

3248 
5249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 


SBTTL - MOD U.SFT.TKE - TRACK ERROR CHECK 


BGNSUB 


IF LAST COMHAND=READ OR WRITE SECTOR CA] 

THEN-IF FLAG=READ ERROR CODE BIT SET CBJ 

THEN-IF DRIVE #0 SELECTED CC3 

THEN-IF CURRENT TRK DRV #0 NOT=TRACK CD] 

THEN- 

IF FLAGS=NEG TST NOT SET CE] 
THEN-SETUP ERROR * 

SET PRINT TRACKS-PRINT FLAGS 
CALL ERROR REPORT 

ENDIF 

END I F 

ELSE— I F CURRENT TRK DRV #1 NOT=TRACK [F] 

THEN- 

IF FLAGS=NEG TST NOT SET CGD 
THEN-SETUP ERROR 

SET PRINT TRACKS-PRINT FLAGS 
CALL ERROR REPORT 

ENDIF 

ENDIF 

ENDIF 

ELSE— IF ERROR ON COMMAND 
THEN- 

IF FLAGS=NEG TEST NOT SET 
THEN-SETUP ERR * 

SET PRINT TRACKS-PRINT FLAGS 
CALL ERR REPORT 

ENDIF 

ENDIF 


CH] 

m 


ENDSUB 


ENDIF 

NOP 


ENDIF 



M 7 


SEQ 90 
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3263 

017516 

000240 



TKERCK: 

NOP 



3269 

017520 

022737 

000017 

002424 

IATKE: 

CMP 

#1 7,LCMD 

IF LAST COMMAND 

3270 

017526 

001471 




BEQ 

EATKE 

WAS 

3271 

017530 

032737 

000004 

002400 


BIT 

#4.CMD 

READ OR WRITE 

3272 

017536 

001465 




BEQ 

EATKE 

THEN 

3273 

017540 

032737 

000200 

002476 

IBTKE : 

BIT 

fRECFLG.FLAGST 

IF FLAGS=READ ERROR CODE BIT 

3274 

017546 

001442 




BEQ 

IHTKE 

SET. THEN 

3275 

017550 

005737 

002406 


ICTKE: 

TST 

DRIVE 

IF DRIVEf 0 

3276 

017554 

001016 




BNE 

IFTKE 

SELECTED. THEN 

3277 

017556 

123737 

002444 

002374 

IDTKE : 

CMPB 

CTKO # TRACK 

IF CURRENT TRACK DRIVE 0 l TRACK 

3278 

017564 

001452 




BEQ 

EATKE 

NOT = . THEN 

3279 

017566 

032737 

004000 

002476 

IETKE : 

BIT 

fNEGTST.FLAGST 

IF FLAGS=NEG TEST BIT 

3280 

017574 

001046 




BNE 

EATKE 

NOT SET. THEN 

3281 

017576 

012737 

000041 

002520 


MOV 

fTRKAER.ERRNBR 

SET ERR NBR=TRACK ADDRESS ERROR 

3282 

017604 

004737 

003060 



CALL 

ERROR 

CALL ERROR 

3283 

017610 

000440 




BR 

EATKE 

BR TO END 'A' 

3284 

017612 

123737 

002445 

002374 

IFTKE: 

CMPB 

CTK1 .TRACK 

IF CURRENT TRACK DRIVE 1 t TRACK 

3285 

017620 

001434 




BEQ 

EATKE 

NOT=, THEN 

3286 

017622 

032737 

004000 

002476 

IGTKE: 

BIT 

fNEGTST.FLAGST 

IF FLAGS=NE TEST BIT 

3287 

017630 

001030 




BNE 

EATKE 

NOT SET, THEN 

3288 

017632 

012737 

000041 

002520 


MOV 

fTRKAER.ERRNBR 

SET ERR NBR=TRACK ADDRESS ERROR 

3289 

017640 

052737 

000001 

002500 


BIS 

#TKPRT,FLAGSP 

SET PRINT TRACKS FLAG-PROGRAM FLAGS 

3290 

017646 

004737 

003060 



CALL 

ERROR 

CALL ERROR 

3291 

017652 

000417 




BR 

EATKE 

BR TO END ’A’ 

3292 

017654 

005737 

002432 


IHTKE: 

TST 

RXCSR 

IF ERROR ON COMMAND (READ OR WRITE) 

3293 

017660 

100014 




BPL 

EATKE 

SET, THEN 

3294 

017662 

032737 

004000 

002476 

IITKE: 

BIT 

#NEGTST,FLAGST 

IF FLAGS=NEG TEST BIT 

3295 

017670 

001010 




BNE 

EATKE 

SET, THEN 

3296 

017672 

012737 

000041 

002520 


MOV 

fTRKAER.ERRNBR 

SET ERR NBR=TRACK ADDRESS ERROR 

3297 

017700 

052737 

000001 

002500 


BIS 

fTKPRT.FLAGSP 

SET PRINT TRACKS FLAG 

3298 

017706 

004737 

003060 



CALL 

ERROR 

CALL ERROR 

3299 

017712 

000240 



EATKE: 

NOP 



3300 

017714 

042737 

000001 

002500 


BIC 

fTKPRT.FLAGSP 

CFAR PRINT TRACKS FLAG 

3301 

017722 

000207 



XTKECK: 

RETURN 


RETURN 


3302 



N 7 
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3305 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

3313 

3314 

3315 

3316 

3317 

3318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 

3328 

3329 

3330 

3331 

3332 

3333 

3334 

3335 

3336 

3337 


.SBTTL - MOD U.SFT.ECK - ERROR CHECK 


BGNSUB 

IF REG CHECK SET CAD 

: THEN-CALL REGISTER CHECK 

ENDIF 

IF READ ERROR CODE SET CB3 

: THEN-IF FLAGSP=READ ERROR CODE TEST NOT SET CNJ 

: : THEN-CALL READ ERROR CODE CHECK 

CALL ERROR NEG TEST CK 

: ENDIF 

ENDIF 

IF ERROR FLAG SET CCD 

: THEN 

: IF ERR NUMBER NOT SET=SYSFTL ERROR EDO 

: THEN-CLEAR REG ERR H 

: DOUHILE REG ERR # TABLE ENTRY N0T=-1 CEJ 

: SET TEMP R2=REG ERR * TABLE ENTRY 
: IF TEMP REG #2 > REG ERR # Cl J 

: : : THEN-SET REG ERR #=TEMP REG 

: : ENDIF 

: ENDDO 

: IF REG ERR # > ERR CODE ERR # [M] 

: THEN-SET ERR NUMBER=REG ERR # 

: ELSE-SET ERR NUMBER=ERR CODE ERR * 

: ENDIF 

ENDIF 

CLEAR REG ERR # 

CLEAR ERR CODE ERR # 

CALL ERROR 

ENDIF 

ENDSUB 


HA 

TE 


B 8 
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3340 017724 000240 

3341 017726 032737 000001 002476 

3342 017734 001402 

3343 017736 004737 013664 

3344 017742 032737 000200 002476 

3345 017750 001420 

3346 017752 032737 000200 002500 

3347 017760 001014 

3348 017762 032737 100000 002432 

3349 017770 001410 

3350 017772 004737 015106 

3351 017776 013702 020164 

3352 0200C2 004737 020170 

3353 020006 010237 0201 o4 

3354 020012 032737 100000 002476 

3355 020020 001460 

3356 020022 022737 000047 002520 

3357 020030 103434 

3358 020032 005037 020166 

3359 020036 005001 

3360 020040 005761 014706 

3361 020044 100413 

3362 020046 016102 014706 

3363 020052 004737 020170 

3364 020056 020237 020166 

3365 020062 103402 

3366 020064 010237 020166 

3367 020070 005721 

3368 020072 000762 

3369 020074 023737 020166 020164 

3370 020102 103404 

3371 020104 013737 020166 002520 

3372 020112 000403 

3373 020114 013737 020164 002520 

3374 020122 000240 

3375 020124 032737 020000 002332 

3376 020132 001402 

3377 020134 004737 020240 

3378 020140 005037 020166 

3379 020144 005037 020164 

3380 020150 004737 003060 

3381 020154 042737 000200 002500 

3382 020162 000207 

3383 

3384 020164 000000 

3385 020166 000000 

3386 


ERRCHK: 

NOP 


IAECK: 

BIT 

*regck,flagst 


BEQ 

IBECK 


CALL 

REGSCK 

IBECK: 

BIT 

*recflg,flagst 


BEQ 

ICECK 

INECK: 

BIT 

*RECTST,FLAGSP 


BNE 

ICECK 

IOECK: 

BIT 

*ERRBIT, RXCSR 


BEQ 

ICECK 


CALL 

GTECEN 


MOV 

ECERNB,R2 


CALL 

ERNTCK 


MOV 

R2.ECERNB 

ICECK: 

BIT 

*ERRFLG,FLAG$T 


BEQ 

XERRCK 

IDECK: 

CMP 

*39. ,ERRNBR 


BLO 

EDECK 


CLR 

RGERNB 


CLR 

R1 

WEECK: 

TST 

RGERTB(RI) 


BMI 

IMECK 


MOV 

RGERTB(R1 ) ,R2 


CALL 

ERNTCK 

IIECK: 

CMP 

R2. RGERNB 


BLO 

EIECK 


MOV 

R2. RGERNB 

EIECK: 

TST 

<r1>* 

EEECK: 

BR 

WEECK 

IMECK: 

CMP 

RGERNB. ECERNB 


BLO 

LMECK 


MOV 

RGERNB, ERRNBR 


BR 

EDECK 

LMECK: 

MOV 

ECERNB, ERRNBR 

EDECK: 

NOP 


IPECK: 

BIT 

*BIT13,SWREG 


BEQ 

EPECK 


CALL 

TSTDBG 

EPECK: 

CLR 

RGERNB 


CLR 

ECERNB 


CALL 

ERROR 


BIC 

*RECFLG,FLAGSP 

XERRCK: 

RETURN 


ECERNB: 

0 


RGERNB: 

0 



SEO 92 


T| 


IF FLAGS=REG CK BIT 
SET, THEN 

CALL REGISTER CHECK 
IF FLAGS=READ ERROR CODE BIT 
SET, THEN 

IF FLAGSP=READ ERROR CODE TEST 
NOT SET, THEN 
IF RXCSR ERR BIT 
SET THEN 

CALL GET READ ERROR CODE ERR A 

PASS ERROR CODE ERR * TO ’>IEG TEST CK” MOD 

CALL ERROR NEG TEST CHECK 

SAVE REC ERR 

IF FLAGS=ERROR FLAG 

SET, THEN 

IF ERR NUMBER NOT=SYS FTL ERR 
THEN 

CLEAR REGISTER ERROR 0 
CLEAR REGISTER ERROR TABLE PTR 
DOWHILE REG ERR TABLE ENTRY 
N0T=-1, THEN 

PASS REG ERR A TABLE ENTRY TO ’MEG TEST CK” MOD VIA ”R2” 
CALL ERROR NEG TEST CHECK 
IF TEMP R 2 > REG ERR NBR 
THEN 

SET REG ERR NUMBER=R2 
INCREMENT INDEX 
BR TO DOWHILE ’E* 

IF REG ERR* > ERR CODE ERR* 

THEN 

SET ERR NUMBER-REG ERR 0 
BR TO END ’D* 

SET ERR NUMBER=ERR CODE ERR* 

IF SU REG BIT *13 
SET, THEN 
** 

CLEAR REG ERR * 

CLEAR ERR CODE ERR * 

CALL ERROR 

CLEAR RD ERR CODE FLG 
RETURN 


;ERR CODE ERR * 
;REG ERR * 
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BGNSUB 

IF TEfoP REG #2=NEG TEST FLAG SET [A3 

: THEN-CLEAR NEG TEST FLAG FROM ERR * 

: IF FLAGS=NEG TEST FLAG SET [83 

: THEN-IF NEG TEST ERR #=SET NEG TEST ERR CC3 

: : : THEN-CLEAR THE ERROR 

: ELSE— I F REG #2=DISK ERROR [D3 

: THEN-CLEAR-NOT ERROR 
: : : ENDIF 

: : ENDIF 

: ENDIF 

ENDIF 

ENDSUB 
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- MOD U.SFT.ENC - ERROR NEG TEST CHECK 

3389 

339C 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 020170 000240 

3407 020172 032702 004000 

3408 020176 001417 

3409 020200 042702 004000 

3410 020204 032737 004000 002476 

3411 020212 001411 

3412 020214 023702 002464 

3413 020220 001002 

3414 020222 005002 

34 1 5 020224 000404 

3416 020226 022702 000020 

3417 020232 001001 

3418 020234 005002 

3419 020236 000207 

3420 


ERNTCK: 

NOP 


IAENC : 

BIT 

#NEGTST,R2 


BEQ 

XENTCK 


BIC 

#NEGTST,R2 

IBENC: 

BIT 

#NEGT$T,FLAG$T 


8EQ 

XENTCK 

ICENC: 

CMP 

NGTSER.R2 


BNE 

IDENC 


CLR 

R 2 


BR 

XENTCK 

IDENC: 

CMP 

#DENDSK,R2 


BNE 

XENTCK 


CLR 

R 2 

XENTCK: 

RETURN 



IF TEMP REG=NEG TEST FLAG 
SET, THEN 

CLEAR NEG TEST FLAG 
IF FLAGS=NEG TEST BIT 
SET THEN 

IF NEG TEST ERR # ft SET NEG TEST ERR 

ARE EQUAL. THEN 

OK, CLEAR THE ERROR :! 

BR TO IF * I • 

IF DISK DEN 
ERROR, THEN 

CLEAR-NOT ERROR< 

RETURN 







.SBTTL 

- MOD U 

.SFT.DBG - TEST STATUS 

020240 

013702 

002476 


# 

TS T DBG : 

MOV 

FLAGST.R2 

020244 

013703 

002500 



MOV 

FLAGSP.R3 

020250 

013704 

002522 



MOV 

ERRMSG.R4 

020254 

012701 

020306 



MOV 

#TSDGMS.R1 

020260 

004737 

002636 



CALL 

PRTB3S 

020264 

012701 

020364 



MOV 

#TSDGM1.R1 

020270 

013702 

020166 



MOV 

RGERNB.R2 

020274 

013703 

020164 



MOV 

ECERNB.R3 

020300 

004737 

002612 



CALL 

PRTB2S 

020304 

000207 




RETURN 

.•RETURN 

020306 

045 

116 

045 

TSDGMS: 

.ASCIZ 

/XNXA->FLAGST=XOXA FLAGSP-ZOXA ERRMSG ADR=XOXN/ 

020364 

045 

101 

040 

TS0GM1 : 

.ASCIZ 

/ZA REG ERR #X0ZA ERR CODE ERR #XOXN/ 
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3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

3449 

3450 

3451 

3452 
345 3 

3454 

3455 

3456 

3457 

3458 


.EVEN 


.SBTTL - MOD U.SFT.CDC - COMPLIMENT DENSITY CONTROL 


020430 

000240 



CDENC: 

NOP 



020432 

005737 

002412 


IACDC : 

TST 

DENSTY 

IF CONTROL DENSITY 

020436 

001406 




BEQ 

LACDC 

EQUALS DOUBLE. THEN 

020440 

042737 

000002 

002476 


BIC 

#ddcflg,flagst 

CLEAR DOUBLE DENSITY CONTROL FLAG 

020446 

005037 

002412 



CLR 

DENSTY 

SET CONTROL DENSITY=SINGLE 

020452 

000406 




BR 

XCDENC 

BR TO 'X* 

020454 

012737 

000400 

002412 

LACDC: 

MOV 

#DENBIT. DENSTY 

SET CONTROL DENSTY=DOUBLE 

020462 

052737 

000002 

002476 


BIS 

#DDCFLG.FLAGST 

SET DOUBLE DENSITY CONTROL FLAG 

020470 

000207 



XCDENC : 

RETURN 


RETURN 





« 

.SBTTL 

- MOD U 

.SFT.SDC - SETUP DENSITY CONTROL 


3459 

020472 

013737 

002414 

002412 

SDENC: 

MOV 

DENSTA. DENSTY 

SET DENSTY CONTROL=DENSITY 

STATUS 

3460 

020500 

005737 

002414 


IASDC : 

TST 

DENSTA 

IF DENSITY STATUS SET TO 


3461 

020504 

001407 




BEQ 

LASDC 

DOUBLE DENSITY. THEN 


3462 

020506 

052737 

000002 

002476 


BIS 

#DDCFLG.FLAGST 

SET DOUBLE DENSITY CONTROL 

FLAG 

3463 

020514 

012737 

000200 

002370 


MOV 

#128. .WDCNT 

SET WORD COUNT= 128 


3464 

020522 

000406 




BR 

XSDC 

BR TO EXIT 


3465 

020524 

042737 

000002 

002476 

LASDC: 

BIC 

#DDCFLG.FLAGST 

CLEAR DOUBLE DENSITY CONTROL FLAG 

3466 

020532 

012737 

000100 

002370 


MOV 

#64.. WDCNT 

■SET WORD C0UNT=64 


3467 

020540 

000207 



XSDC : 

RETURN 


RETURN 



3468 
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E 8 


£0 95 


3471 

3472 

3473 

3474 

3475 

3476 

3477 

3478 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 


SBTTL - MOD U.PRT.UNT - PRINT UNIT IDENT 


BGNSUB 

GET UNIT # 

GET UNIT MSG 
CALL PRINT-1 ARG 

ENDSUB 


020542 

013702 

002512 


MOV 

UNTPRT.R2 

; GET UNIT # 



020546 

012701 

020560 


MOV 

#PTUTMS,R1 

;GET UNIT MSG 



020552 

004737 

002570 


CALL 

PRTB1S 

.-CALL PRINT BASIC-1 ARG 



020556 

000207 



RETURN 


.•RETURN 



020560 

045 

116 

045 PTUTMS: .ASCIZ 

/XNXA UNIT #XD2/ 








.EVEN 









.SBTTL - MOD U. 

PRT.DID - PRINT 

DRIVE IDENT 







BGNSUB 









GET DRIVE » 

GET SIDE * 

IF DOUBLE SIDED DEVICE 








: THEN- 

■SETUP PRINT IDENT DOUBLE SIDED DEVICE 








CALL PRINT BASIC 

-2 PAR. 







: ELSE- 

-SETUP PRINT IDENT SINGLE SIDED DEVICE 








CALL PRINT BASIC 

-1 PAR. 







ENDIf 









ENDSUB 





020600 

013702 

002514 


>RTDID: MOV 

DRVPRT.R2 

.•SETUP R2=DRV # 



020604 

012701 

020657 


MOV 

0IDSSMS.R1 

.•SETUP PRINT IDENT SINGLE 

SIDED 

DEVICE 

020610 

004737 

002570 


CALL 

PRTB1S 

.•CALL PRINT BASIC-1 PAR. 



020614 

032737 

010000 

002332 IADID: BIT 

tSIDFLG.SWREG 

.‘IF DOUBLE SIDED DEVICE 



020622 

001406 



BED 

XPTDID 

.•FLAG SET, THEN 



020624 

013702 

002515 


MOV 

SIDPRT.R2 

.•SETUP R3=SID f 



020630 

012701 

020642 


MOV 

#IDDSHS»R1 

.•SETUP PRINT IDENT DOUBLE 

SIDED 

DEVICE 

020634 

004737 

002570 


CALL 

PRTB1S 

.-CALL PRINT BASIC-2 PAR. 



020640 

000207 


XPTDID: RETURN 


; RE TURN 



020642 

045 

101 

040 IDDSMS: .ASCIZ 

/XA SIDE #X01/ 




020657 

045 

116 

045 IDSSMS: .ASCIZ 

/XNXA DRIVE #X01/ 




.EVEN 



F 8 


SEQ 96 
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- MOD U.TST.FTS - FUNCTION TEST SETUP 


3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 


SBTTL - MOD U.TST.FTS - FUNCTION TEST SETUP 


BGNSU8 


ENDSUB 


SET FUNCTION TEST BIT-FLAGS 
SETUP TEST IDENT MSG IN "ERRMSG' 
SET FLAGS REGISTER CHECK 
NOP 


3528 

020700 

000240 



FTSTUP: NOP 



3529 

020702 

004737 

021122 


CALL 

CLRCR 

CALL CLEAR CTRS t REGS 

3530 

020706 

012737 

000040 

002476 

MOV 

fFUNTST.FLAGST 

SET FUNCTION TEST BIT-FLAGS 

3531 

020714 

017737 

161546 

002522 

MOV 

3TSTID, ERRMSG 

SETUP TEST IDENT MSG 

3532 

020722 

052737 

000001 

002476 

BIS 

fREGCK.FLAGST 

SET FLAGS-REGISTER CHECK 

3533 

020730 

004737 

021014 


CALL 

SUDVCD 

CALL SETUP DEVICE COMMANDS 

3534 

020734 

000207 



RETURN 


RETURN 


3535 

3536 

3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 

3546 

3547 

3548 


SBTTL - MOD U.TST.ITS - LOGIC TEST SETUP 


BGNSU8 


ENDSUB 


CLEAR FUNCTION TEST BIT-FLAGS 

SETUP TEST IDENT MSG IN ’■ERRMSG" 

GET TEST TABLE ADDRESS 

INCREMENT TO NEXT ADDRESS 

SET ANY FLAGS FROM THAT ADDRESS 

SET FLAGS REGISTER CHECK 

NOP 


3556 

3557 

3558 

3559 

3560 

3561 


3566 


020736 

020740 

020744 

020752 

020760 

020764 

020770 

000240 

004737 

042737 

017737 

004737 

004737 

000207 

021122 

000040 

161510 

020772 

021014 

002476 

002522 

LTSTUP: NOP 
CALL 
BIC 

MOV 

CALL 

CALL 

RETURN 

CLRCR 

#FUNTST,FLAGST 
aiSTID. ERRMSG 
SUTSFG 

SUDVCD 

CALL CLEAR CTRS & REGS 

CLEAR FUNCTION TEST BIT-FLAGS 

SETUP TEST IDENT MSG 

CALL SETUP TEST FLAGS 

CALL SETUP DEVICE COMMANDS 

RETURN 





« 

.SBTTL - MOD U.TST.SFG - SETUP TEST FLAGS 

020772 

000240 



SUTSFG: NOP 



020774 

013701 

002466 


MOV 

TSTID.R1 

GET TEST TABLE ADDRESS 

02 1000 

005721 



TST 

(R1)* 

INC TEST TABLE ADDRESS 

021002 

012137 

002476 


MOV 

(Rm.FLAGST 

SET TEST FLAGS FROM TABLE 

021006 

111137 

002500 


MOVB 

(RI).FLAGSP 

SET PRINT FLAGS FROM TABLE 

021012 

000207 



RETURN 


RETURN 
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3569 

3570 

3571 

3572 

3573 

3574 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3594 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 

3604 

3605 

3606 

3607 

3608 

3609 

3610 

3611 

3612 

3613 

3614 

3615 

3616 

3617 

3618 

3619 


.SBTTL - MOD U.SFT.SDC - SETUP DEVICE COMMANDS 


021014 

021022 

021030 

021036 

021044 

021046 

021054 

021062 

021064 

021070 

021076 

021104 

021112 

021120 


012737 

012737 

012737 

032737 

001407 

012737 

012737 

000405 

005037 

01273 7 

012737 

012737 

012737 

000207 


021122 
021126 
021132 
021 1 36 
021142 
021146 
021152 
021156 
021162 
021164 
021166 
021170 
021172 


021174 

021202 

021210 


021212 


005037 

005037 

005037 

005037 

005037 

005037 

005037 

005037 

000240 

000240 

000240 

000240 

000207 


012737 

012737 

000207 


036622 

002360 

t 

SUDVCD: MOV 

fDATBUF .EMPADR 
#'I.VARIFV 

SETUP EMPTY BUFFER ADDRESS 

0001 1 1 

002372 

MOV 

SETUP SET DENSITY KEYWORD=*T* 

036222 

002362 

MOV 

#DATPAT,F ILADR 

SETUP FILL BUFFER ADDRESS 

000002 

002476 

11: BIT 

#DDCFLG,FLAGST 

IF DOUBLE DENSITY FLAGS 



BEQ 

2$ 

SET. THEN 

000400 

002412 

MOV 

#DENBIT.DENSTY 

SET DEVICE DENSITY=DOUBLE 

000200 

002370 

MOV 

#128. .WDCNT 

SET WORD COUNT=DOUBLE DEN ’ZE 



BR 

3$ 

BR 

002412 


2S: CLR 

DENSTY 

SET DEVICE DENSITY=SINGLE 

000100 

002370 

MOV 

#64. .WDCNT 

SET WORD COUNT=SINGLE DEN SIZE 

002442 

002364 

3S: MOV 

#XERUUT.RECADR 

SET READ ERROR CODE ADR=NORMAL ADR 

000001 

002374 

MOV 

#1. TRACK 

SETUP TRACK=1 

000001 

002376 

MOV 

#1. SECTOR 

SETUP SECTORS 



RETURN 


RETURN 



• 

.SBTTL - MOD U.TST.CCR - CLEAR TEST CTRS & ERROR REGS 



; BGNSUB 





CLEAR ANY ERRORS FROM PREVIOUS TESTS 



; END SU8 



002400 


• 

CLRCR: CLR 

CMD 

CLEAR COMMAND WORD 

002454 


CLR 

FIN 

CLEAR COMMAND FINI FLAG 

002460 


CLR 

TVPERR 

CLEAR TYPE ERROR 

002470 


CLR 

TCMDCT 

CLEAR TEST COMMAND CTR 

002442 


CLR 

XERUUT 

CLEAR READ ERR CODE WORD 

002510 


CLR 

TKSCFG 

CLEAR TRK t SEC FLAGS 

002402 


CLR 

DELDAT 

CLEAR DELETED DATA MODE 

002504 


CLR 

T TEMPI 

CLEAR TEST TEMP #1 



NOP 

NOP 

NOP 

NOP 

RETURN 


RETURN 



0 

.SBTTL - MOD U 

.TST.T76 - SET TRAfK*76 

000114 

002374 

0 

STTK76: MOV 

#76.. TRACK 

SET TRACK=76. 

000012 

002376 

MOV 

#10.. SECTOR 

SET SECT0R=10. 



RETURN 


RETURN 



• 

ENDMOD 





H 8 


SEC 98 
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- MOO U.TST.T76 - SET TRACK=76 

3632 

3633 

3661 

3662 021212 

3663 

3664 

366 5 

3666 

3667 

3668 

3669 021212 

3675 

3676 021212 

3677 
3688 
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.TITLE MISCELLANEOUS SECTIONS 
.SBTTL REPORT CODING SECTION 

BGNMOD 

;*♦ 

; THE REPORT CODING SECTION CONTAINS THc 
; "PRINTS" CALLS THAT GENFRATE STATISTICAL REPORTS. 
# 

BGNRPT 
ENDRPT 
• EVEN 



SEC 99 


I 8 
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initialize section 


3690 





.S0TTL 

INITIALIZE SECTION 


3691 









3692 









3693 





; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 

369A 





: AT THE BEGINNING OF EACH PASS. 


3695 









3696 









3697 

021214 





BGNINIT 



3698 









3699 

021214 

000240 



INIT: 

NOP 



3704 

021216 





RFLAGS 

FLGDRS 


3706 

021224 





READEF 

#EF. CONTINUE 

IF CONTINUE 

3707 

021232 





BCOMPLETE XINIT 

NOT SET. THEN 

3708 

021234 





READEF 

AEF.PWR 

IF POWER FAIL 

3709 

021242 





BCOMPLETE XINIT 

NOT SET, THEN 

3710 

021244 

042737 

140000 

002500 


BIC 

#RESFLG!STAFLG,FLAGSP .’CLEAR RESTART l START FLAGS 

3711 

021252 




START: 

READEF 

#EF. START 

IF START FLAG 

3712 

021260 





BNCOMPLETE RECTAR 

SET. THEN 

3713 

021262 




STARTO: 

READBUS 


IF BUS IS "LSI-BUS” 

3714 

021264 





BNCOMPLETE UNI 

THEN 

3715 

021266 

052737 

000400 

002500 


BIS 

#LSIFLG.FLAGSP 

#4177.L$HIMEM 

SET LSI FLAG-PROGRAM FLAGS 

3716 

02"274 

022737 

004177 

002120 


CMP 

IF HI MEMORY <417776=HI LIMIT 124K> 

3717 

021302 

101007 




BHi 

START1 

IS 124K OR HIGHER., THE* 

3718 

021304 

052737 

010000 

002500 


BIS 

#FONZFG.FLAGSP 

SET LSI 11/23 FLAG 

BR TO "START1" 

3719 

021312 

000403 




BR 

START1 

3720 

021314 

042737 

000400 

002500 

UNI : 

BIC 

#LSIFLG.FLAGSP 

CLEAR LSI FLAG-PROGRAM FLAGS 

3721 

021322 

052737 

100000 

002500 

START1: 

BIS 

#staflg.flagsp 

SET START FLAG 

BR TO "SET UP" 

3722 

021330 

000414 




BR 

SETUP 

3723 

021332 




RE STAR: 

READEF 

#EF. restart 

IF RESTART FLAG 

3724 

021340 





BNCOMPLETE NEU 

SET, THEN 

3725 

021342 

052737 

040000 

002500 


BIS 

#resflg.flagsp 

SET RESTART FLAG 

BR TO "SETUP" 

3726 

021350 

000*04 




BR 

SETUP 

3727 

021352 




NEU: 

READEF 

#EF.NEU 

IF NEU PASS FLAG 

3728 

021360 





BNCOMPLETE NEXT 

THEN 

3729 

021362 

012737 

177777 

021526 

SETUP: 

MOV 

#-1 .UNIT 

SETUP TO START GETING UNITS OVER 

3730 

021370 

062737 

000001 

021526 

NEXT: 

ADD 

#1 .UNIT 

BUMP UNIT TO NEXT UNIT 

IF "DRS" UNIT CNT S DIAG UNIT 

3731 

021376 

023737 

002012 

021526 


CMP 

LSUNIT.UN1T 

3732 

021404 

001426 




BEO 

INITER 

NOT EXCEEDED, THEN 

3733 

021406 





GPHARD 

UNIT. PLOC 

GET NEXT UNIT 

3734 

021420 





BNCOMPLETE NEXT 

IF FOUND A UNIT, THEN 

3735 

021422 

004737 

021742 



CALL 

INTT8L 

CALL INITIALIZE TABLES 

3736 

021426 

004737 

021572 



CALL 

UNPKNP 

UNPACK HARDAURE P-TABLES 

3737 

021432 





SETVEC 

VECT,#INTRHD,#PRI06 

3738 

021460 

000414 




BR 

XINIT 


3739 

021462 




INITER: 

PRINTf 

#INTER1 

; PRINT "TOO MANY UNITS" 

3740 

021502 

012737 

000001 

002452 


MOV 

#1. ABORT 

;SCT ABORT FLAG 

3741 

021510 





DOCLN 



3742 

021512 

000240 



XINIT: 

NOP 



3749 

0211 14 
02V 22 

013737 

021526 

002512 


MOV 

UNIT.UNTPRT 

;SET USER # - LOGICAL UNIT # 

3760 





ENDINIT 




jf Ol 







' 


3762 

021 >24 

000000 



PLOC: 

.WORD 

0 

;P-TABLE LOCATION 

3763 

7 7 Al 

021526 

177777 



UNIT: 

.WORD 

-1 

LOGICAL UNIT# UNDER TEST 









* ™ 

3765 

021530 

045 

116 

045 

INTER1: 

.ASCIZ 

/XNXASTART OVER -> TOO MANY UNITS/ 

3766 

3^67 






.EVEN 




HJ 

TE 



J 8 


SEO 100 


MISCELLANEOUS 

SECTIONS 

MACRO Ml 200 14 

-DEC-82 

16:33 PAGE 133 


- MOD 

1.1 - UNPACK HARDWARE P- 

TABLES 





3779 





. SBTTL 

- MOD I 

.1 - UNPACK HARDWARE P-TAeLES 

7 70 n 









jf “U 









3781 









3782 

021572 

013701 

021524 


UNPKHP: 

MOV 

PL0C.R1 

SAVE P-TABLE LOCATION 

3783 

021576 

012137 

002350 



MOV 

(Rm.RXCS 

LOAD UNIT BUS ADR-CSR 

3784 

021602 

013737 

002350 

002352 


MOV 

RXCS.RXDB 

LOAD UNIT BUS ADR-DBR 

3785 

021610 

062737 

000002 

002352 


ADD 

#2,RXDB 

SET UNIT BUS ADR-DBR 

3786 

021616 

012137 

002354 



MOV 

(R1)+,VECT 

LOAD UNIT VECTOR 

3787 

021622 

005721 



I All : 

TST 

(R1 )♦ 

IF DRIVE #0 

3788 

021624 

001007 




BNE 

LAI1 

THEN 

3789 

021626 

005037 

002406 



CLR 

DRIVE 

SETUP TO SELECT DRIVE #0 

3790 

021632 

005037 

002420 



CLR 

DRVOFF 

SETUP DRIVE BYTE OFFSET DRVO 

3791 

021636 

! 05037 

002514 



CLRB 

DRVPRT 

SET PRINT DRV #=0 

3792 

021642 

000411 




BR 

IBJ1 

BR TO IF *B' 

3793 

021644 

012737 

000020 

002406 

LAI 1 : 

MOV 

#DRV1 .DRIVE 

SETUP TO SELECT DRIVE #1 

3794 

021652 

012737 

000001 

002420 


MOV 

#1 .DRVOFF 

SETUP DRIVE BYTE OFFSET DRVl 

3795 

021660 

112737 

000001 

002514 


MOVB 

#1 .DRVPRT 

SET PRINT DRV #=1 

3796 

021666 

005721 



JBI1: 

TST 

(R1 )♦ 

IF SIDE #0 SELECTED 

3797 

021670 

001005 




BNE 

LBI1 

THEN 

3798 

021672 

005037 

002410 



CLR 

SIDE 

SETUP TO SELECT SIDE #0 

3799 

021676 

105037 

002515 



CLRB 

SIDPRT 

SET PRINT SID #=0 

3800 

021702 

000406 




BR 

EBI1 

BR TO END '8* 

3801 

021704 

012737 

001000 

002410 

L8I1 : 

MOV 

#S I DEI .SIDE 

SETUP TO SELECT SIDE #1 

3802 

021712 

112737 

000001 

002515 


MOVB 

#1. SIDPRT 

SET PRINT SID #=1 

3803 

021720 

011102 



EB1 1 : 

MOV 

(R1).R2 

GET DEVICE PRIORITY 

3804 

021722 

116237 

021732 

002356 


MOVB 

PRITAB(R2) .RXPRI 

.•SETUP PROPER DEVICE PRIORITY 

3805 

TO/U 

021730 

000207 




RETURN 


RETURN 

3oUO 









3807 

021732 

000 



PRITAB: 

.BYTE 

PR 100 

PRIORITY 0 

3808 

021733 

040 




.BYTE 

PRI01 

PRIORITY 1 

3809 

021734 

100 




.BYTE 

PRI02 

PRIORITY 2 

3810 

021735 

140 




.BYTE 

PRI03 

PRIORITY 3 

3811 

021736 

200 




.BYTE 

PR 1 04 

PRIORITY 4 

3812 

021737 

240 




• BYTE 

PR 1 05 

PRIORITY 5 

3813 

021740 

300 




.8YTE 

PRI06 

PRIORITY 6 

3814 

?Q1 C 

021741 

340 




.BYTE 

PR 1 07 

PRIORITY 7 

30 1 j 








***** * ** * * * 

3816 









3817 





.SBTTL 

- MOD I 

.2 - INITIALIZE TABLES 

7010 





T 




30 15 








* * * ™ ™ ™ ™ * * * ' ' ™ 

3819 









3820 

021742 

000240 



INTTBL: 

NOP 



3821 

021 744 

012701 

002452 



MOV 

#ABORT ,R1 

GET ADDRES SOF TABLE TO CLEAR 

3822 

021750 

012702 

000010 



MOV 

#10, R2 

SET TABLE LENGTH 

3823 

021754 

005021 



IS: 

CLR 

(R1 )♦ 

CLEAR LOCATOIN 

3824 

021756 

005302 




DEC 

R2 

DECREMENT TABLE COUNT 

3825 

02^60 

001375 




BNE 

IS 

IF DONE, THEN 

3826 

3827 

021 762 

000207 




RETURN 


RETURN 


HA 

TE 
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3829 

3830 

3831 

3832 

3833 

3834 

3835 

3836 

3837 

3838 
3845 

3856 

3857 

3858 

3859 

3860 

3861 

3862 

3863 

3864 
3870 

3875 

3876 

3877 

3878 

3879 

3880 

3891 

3892 

3893 

3896 

3897 

3898 

3899 

3900 

3901 

3903 

3904 

3905 

3906 

3907 

3908 

3909 

3910 

3911 

3912 

3918 

3919 

3920 
3931 
393? 
3933 


.SBTTL CLEANUP CODING SECTION 

; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


021764 BGNCLN 

021764 CLRVEC VECT ;CLEAR VECTOR 

021772 BRESET ;BUS RESET 

021774 ENDCLN 

.EVEN 


.SBTTL DROP UNIT SECTION 
• ♦♦ 


THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE TO NO 
LONGER BE TESTED. 


021776 

021776 

022000 

022004 

022010 

010002 

012701 

004737 

022012 

002570 

0 

BGNDU 

MOV R0.R2 .'GET LOGICAL UNIT 0 

MOV #DUMSG1,R1 ; SET DROP MSG 

CALL PRTB1S ; CALL PRINTS 1 ARG 

ENDDU 

022012 

045 

116 

045 DUMSG1 : 

.ASCIZ /XNXA DROP UNITfXDIXA FROM TESTXN/ 




0 

.EVEN 




.SBTTL 

AUTO DROP UNIT SECTION 

022054 

022054 

022060 

004737 

022066 

• 

BGNAUTO 

CALL ADRTST .’CALL ADDRESSING TST 

ENDAUTO 


022062 

022062 000240 
022064 


022066 


SBTTL ADD UNIT SECTION 


THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACA 
TO THE TEST CYCLE. 


BGNAU 

NOP 

ENDAU 


.EVEN 

ENDMOD 
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ADD UNIT SECTION 


L 8 


SEG 102 


3936 

3947 

3983 

3984 

3985 

3986 

3987 

3988 

3989 

3990 

3991 

3992 
3993- 

3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 


022066 


.TITLE HARDWARE TESTS 
BGNMOD 

SBTTL TEST 0 * ADDRESSING TEST 

TEST TO ASSURE THAT THE DEVICE WILL RESPOND WITHOUT A BUS TRAP. 


BGNSUB 


ENDSUB 


SETUP TEST 
SETUP BUS TRAPS 
READ RXCSR 
RESET BUS TRAPS 
IF TRAP 

THEN-SET SYSTEM FATAL FLAG 
CALL FUNCTION TEST ERROR 
REPORT BUS TRAP ON RXCSR 

END IF 

READ RXDBR 
IF TRAP 

THEN-SET SYSTEM FATAL FLAG 
CALL FUNCTION TEST ERROR 
REPORT BUS TRAP ON RXDBR 

ENDIF 

RESET BUS TRAPS 


022066 

000240 



ADRTST: NOP 



022070 

005037 

002452 


CLR 

ABORT 

; CLEAR ABORT FLAG 

022074 




SETVEC 

ABTRP4 ,#TRAP.#PRI06 

022122 

017701 

160222 


MOV 

BRXCS.R1 

.’READ RXCSR 

022126 




CLRVEC 

#8TRP4 


022134 

005737 

002452 


TST 

ABORT 

;IF ABORT FLAG 

022140 

001413 



BEG 

1$ 

.’SET, THEN 

022142 

012701 

022212 


MOV 

JfTRPMSI.RI 

;SET TRAP MESSAGE 

022146 

013702 

002350 


MOV 

RXCS.R2 

;SET TRAP ADDRESS 

022152 




ERRSF 

60, TOMSG, PRTB1 


022162 




DODU 

UNIT 


022170 

000207 



1$: RETURN 


.’RETURN 

022172 

101 

104 

104 

TOMSG: .ASCII 

/ADDRESSING TEST/ 

022212 

045 

101 

040 

TRPMS1 : .ASCII 

/XA BUS TRAP AT 

ADDRESS :X06XN/ 

022246 

045 

101 

040 

.ASCIZ 

/XA INTERFACE BAD OR NOT SET TO AJ 


.EVEN 



M 8 
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- MOD U.SFT.TRP - BUS TRAP HANDLER 


4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

4047 

4048 

4049 

4050 

4051 


022324 005237 002452 
022330 000002 


000000 

000000 

000001 


- SBTTL - MOD U.SFT.TRP - BUS TRAP HANDLER 

; FUNCTIONAL DESCRIPTION: SUBR TO HANDLE DEVICE BUS TRAP 
; INPUTS: NONE 
; IMPLICIT INPUTS: BUS TRAP 
; OUTPUTS: ABORT FLAG 
; IMPLICIT OUTPUTS: NONE 
; SUBORDINATE ROUTINES USED: NONE 
; FUNCTIONAL SIDE EFFECTS: NONE 
; CALLING SEQUENCE: INTERRUPT 


TRAP: INC ABORT ;SET ABORT FLAG 

RTI .-RETURN FROM TRAP INTERRUPT 


TEST SETUP DEFINITIONS 

FRUS1=0 

TN=0 

FUNCT=1 



N 8 
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TEST 1 - INITIALIZE - FNC TST 

4053 .S8TTL TEST 1 - INITIALIZE - FNC TST 

022332 000414 8R BGNT1 ;BR TO BGN TST 

022334 040 040 111 T1MSG: .ASCIZ / INITIALIZE - FNC TST/ 

.EVEN 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 


4073 022364 





TSETUP 



022364 

012737 

022444 

002466 

8GNT1 : 

MOV 

#T1TBL,TSTID 

SETUP TEST ID T8L-TEST# 1 

022372 

032737 

000002 

002324 

IAT1 : 

BIT 

fFUNCTT.TSTMOD 

IF TEST MODE = FUNCTION TEST 

022400 

001417 




BEQ 

XT 1 

BIT SET, THEN 

022402 

004737 

020700 



CALL 

FTSTUP 

CALL FUNCTION TEST SETUP 

4074 022406 





BRESET 



4075 022410 

004737 

011610 



CALL 

WAIT 


4076 022414 

004737 

012244 



CALL 

GETREG 

CALL GET REGS 

4077 022420 

004737 

017724 



CALL 

ERRCHK 

CALL ERROR CHECK 

4078 022424 

004737 

017140 



CALL 

DVSTCK 

CALL DEVICE CK 

4079 022430 

004737 

010440 



CALL 

INTIAL 

CALL PROG INITIALIZE 

4080 022434 

004737 

017724 



CALL 

ERRCHK 

CALL ERROR CHECK 

4081 022440 




XT1 : 

EXIT 

TST 


4082 022444 





REGTBL 

CSONLY 



015026 






1EGS1 =CSONLY 

4083 022444 





TTBL 



022444 

022334 





T1TBL: .1 

JORD T1MSG 

022446 

177777 






.WORD -1 

022450 






T1RTB: 


022450 

015026 






.WORD REGS1 

022452 

177777 






.WORD -1 


4084 022454 


TEST TO VERIFY THAT AN RX INITIALIZE WILL RETURN THE DEVICE TO A VALID 
STATE. 


BGNTST 

IF FUNCTION TEST 

: THEN-SETUP TEST I.D. 

: CALL FUNCTION TEST SETUP 

BUS INITIALIZE 
CALL ERROR CHECK 
CALL DEVICE STATE CHECK 
INCREMENT COMMAND PTR 
PROGRAM INITIALIZE RX 
CALL ERROR CHECK 

ENDIF 

ENDTST 


SEC 104 


HAI 

TE< 


FNDTST 



B 9 


> 105 


HARDWARE TESTS 
TEST l - READ 

'<087 

022456 

022460 
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ERROR CODE - FNC TST 

.SBTTL TEST 2 - READ ERROR CODE - FNC TST 
000416 BR BGNT2 ;BR TO 8GN TST 

040 040 122 T2MSG: .ASCIZ / READ ERROR CODE - FNC TST/ 

.EVEN 


TEST TO VERIFY THAT THE DEVICE WILL COMPLETE A READ ERROR CODE COMMAND 
WITHOUT ENCOUNTERING AN ERROR. 


BGNTST 

IF FUNCTION TEST 
: THEN-SETUP TEST IDENT 

CALL FUNCTION TEST SETUP 
PROGRAM INITIALIZE RX 
: CALL ERROR CHECK 

SETUP ERROR CODE ADDRESS 
CALL READ ERROR CODE 
CALL ERROR CHECK 

ENDIF 

ENDTST 


4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 


4106 

022514 

022514 

012737 

022604 

002466 


022522 

032737 

000002 

002324 


022530 

001423 




022532 

004737 

020700 


4107 

022536 

004737 

010440 


4108 

022542 

004737 

017724 


4109 

022546 

012737 

002442 

002364 

4110 

022554 

052737 

000200 

002500 

4111 

022562 

004737 

011340 


4112 

022566 

004737 

017724 


4113 

022572 

042737 

000200 

002500 

4114 

022600 




4115 

022604 

015026 



4116 

022604 

022604 

022460 




022606 

022610 

177777 




022610 

015026 




022612 

177777 



4117 

022614 






TSETUP 


BGNT2: 

MOV 

#T2TBL.TSTID 

IAT2: 

BIT 

#FUNCTT,TSTMOD 


BEQ 

XT2 


CALL 

FTSTUP 


CALL 

INTI AL 


CALL 

ERRCHK 


MOV 

fXERUUT.RECADR 


BIS 

*RECTST,FLAGSP 


CALL 

RDERCD 


CALL 

ERRCHK 


BIC 

AfRECTST.FLAGSP 

XT2: 

EXIT 

TST 


REGTBL 

CSONLY 


TTBL 

T2TBL: 



T2RTB: 


ENDTST 



SETUP TEST ID TBL-TEST# 2 

IF TEST MODE=FUNCTION TEST 

BIT SET, THEN 

CALL FUNCTION TEST SETUP 

CALL PROGRAM INITIALIZE 

CALL ERROR CHECK 

SETUP READ ERROR CODE ADDRESS 

SET READ ERROR CODE TEST=FLAGSP 

CALL READ ERROR CODE 

CALL ERROR CHECK 

CLEAR READ ERROR CODE TEST=FLAGSP 


REGS1=CS0NLY 

WORD T2MSG 
.WORD -1 

.WORD REGS1 
.WORD -1 


ha 

TF 

I 



HARDWARE TESTS MACRO M1200 14-DEC-82 16:33 PAGE HI 
TEST 3 - FILL BUFFER - FNC T S T 


C 9 


SEQ 106 



.SBTTL TEST 3 - FILL BUFFER - FNC TST 

BR BGNT3 ;BR TO BGN TST 

T3MSG: .ASCIZ / FILL BUFFER - FNC TST/ 

.EVEN 


TEST TO VERIFY THE DEVICE BUFFER WILL FILL WITH NO RESULTING ERROR. 


BGNTST 

IF FUNCTION TEST 
: THEN-SETUP TEST IDENT 

SETUP DENSITY CONTROL 
CALL SETUP DEVICE COMMANDS 
CALL FILL BUFFER 
: NOP 

ENDIF 

ENDTST 


A 1 36 022650 TSETUP 

022650 012737 022720 002466 BGNT3: MOV 

022656 032737 00C002 002324 IAT3: BIT 

022664 001413 BEO 

022666 004737 020700 CALL 

4137 022672 052737 000002 002476 BIS 

4138 022700 004737 021014 CALL 

4139 022704 004737 010510 CALL 

4K0 022710 004737 017724 CALL 

4141 022714 XT3: EXIT 

4142 022720 REGTBL 

015026 

4143 022720 TT8L 


022720 022620 
022722 177777 

022724 

022724 015026 
022726 177777 

4144 022730 


AT3TBL.TSTID .'SETUP TEST ID TBL-TEST# 3 

AFUNCTT.TSTMOD ;IF TEST MODE=FUNCTION TEST 

XT3 ;BIT SET, THEN 

FTSTUP .'CALL FUNCTION TEST SETUP 

#DDCFLG,FLAGST ; SET DOUBLE DENSITY CONTROL FLAG COMMANDS 

SUDVCD .'CALL SETUP DEVICE COMMANDS 

FILBUF 

ERRCHK .-CALL ERROR CHECK 

TST 

CSONLY 

REGS1=CS0NLY 


T3TBL: 

.WORD 

T3MSG 


.WORD 

-1 

T3RTB: 

.WORD 

REGS1 


.WORD 

-1 



ENDTST 



D 9 
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A1A7 


022732 

022734 


4148 

4149 

4150 

4151 

4152 

4153 

4154 

4155 

4156 

4157 

4158 

4159 

4160 

4161 

4162 

4163 

4164 


4165 

4166 

4167 

4168 

4169 

4170 

4171 


000415 

040 


022766 

022766 

022774 

023002 

023004 

023010 

023016 

023022 

023026 

023032 

023036 


012737 

032737 

001413 

004737 

052737 

004737 

004737 

004737 


015026 


040 


105 


.SBTTL TEST 4 - EMPTY BUFFER - FNC TST 

BR BGNT4 ;BR TO BGN TST 

T4MSG: .ASCIZ / EMPTY BUFFER - FNC TST/ 

• EVEN 




TEST TO VERIFY THE DEVICE BUFFER WILL EMPTY WITHOUT ERRORS. 


BGNTST 

IF FUNCTION TEST 

THEN-SETUP TEST IDENT 

SETUP DENSITY CONTROL 
CALL SETUP DEVICE COMMANDS 
CALL EMPTY BUFFER 
CALL ERROR CHECK 
NOP 

END I F 

ENDTST / 


023036 002466 
000002 002324 

020700 

000002 002476 
021014 
010626 
017724 


8GNT4 : 
IAT4: 


XT4: 


TSETUP 

MOV 

BIT 

BEO 

CALL 

BIS 

CALL 

CALL 

CALL 

EXIT 

REGTBL 

TTBL 


#T4T8L,TSTID 

fFUNCTT.TSTMOD 

XT4 

FTSTUP 

♦DDCFLG.FLAGST 

SUDVCD 

EMPBUF 

ERRCHK 

TST 

CSONLY 


; SETUP TEST ID TBL-TEST# 4 
; IF TEST MODE=FUNCTION TEST 
;BIT SET, THEN 
.•CALL FUNCTION TEST SETUP 
;SET DOUBLE DENSITY CONTROL FLAG 
;CALL SETUP DEVICE COMMANDS 
.'CALL EMPTY BUFFER 
.•CALL ERROR CHECK 


REGS1=CS0NLY 


023036 

022734 

T4TBL: .WORD 

T4MSG 

023040 

177777 

.WORD 

-1 

023042 


T4RTB: 


023042 

015026 

.WORD 

REGS1 

023044 

177777 

.WORD 

-1 


4172 023046 


ENDTST 


SEC 10 7 


HI 

Tl 



HARDWARE TESTS MACRO M1200 14-DEC-82 16:33 PAGE 145 

TEST 5 - READ STATUS - FNC TST 


E 9 


SEC 108 


4175 


023050 

023052 


000414 

040 


040 


122 


4176 

4177 

4178 

4179 

4180 

4181 

4182 

4183 

4184 

4185 

4186 

4187 

4188 


.SBTTL TEST 5 - READ STATUS - FNC TST 

8R BGNT5 ;BR TO BGN TST 

T5MSG: .ASCIZ / READ STATUS - FNC TST/ 

.EVEN 




TEST TO VERIFY THAT A DEVICE MAINTENANCE READ STATUS (RXES> COMMAND 
WILL EXECUTE WITHOUT ERROR. 


BGNTST 


IF FUNCTION TEST 

THEN-SETUP TEST IDENT 

SETUP DENSITY CONTROL=SINGLE 
CALL SETUP DEVICE COMMANDS 
CALL RFAD HAINT STATUS 
CALL ERROR CHECK 
NOP 


4189 





• 

ENDIF 


4190 





; ENDTST 


4191 





• 



4192 








4193 

02310? 





TSETUP 



023102 

012737 

023154 

002466 

BGNT5: 

MOV 

#T5TBL,TSTID 


023110 

032737 

000002 

002324 

IAT5: 

BIT 

fFUNCTT.TSTMOD 


023116 

001414 




BEQ 

XT5 


023120 

004737 

020700 



CALL 

FTSTUP 

4194 

023124 

042737 

000002 

002476 


BIC 

#DDCFLG,FLAGST 

4195 

023132 

000240 




NOP 


4196 

023134 

004737 

021014 



CALL 

SUDVCD 

4197 

023140 

004737 

011266 



CALL 

RDSTAT 

4198 

023144 

004737 

017724 



CALL 

ERRCHK 

4199 

023150 




XT5: 

EXIT 

TST 

4200 

023154 





REGTBL 

CSONLY 



015026 






4201 

023154 





TTBL 



SETUP TEST ID TBL-TEST# 5 

IF TEST MODE=FUNCTION TEST 

BIT SET, THEN 

CALL FUNCTION TEST SETUP 

CLEAR DOUBLE DENSITY CONTROL FLAG 

CALL SETUP DEVICE COMMANDS 
CALL READ MAINT STATUS 
CALL ERROR CHECK 


REGS1=CS0NLY 


023154 
023156 
023160 
023160 
023162 
4202 023164 


023052 

177777 

015026 

177777 


ENDTST 


T5TBL: .WORD 

T5MSG 

.WORD 

-1 

T5RTB: 


.WORD 

RE6S1 

.WORD 

-1 



F 9 
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a C 109 


4205 


023166 

023170 


000420 

040 


040 


4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4218 

4219 

4220 

4221 

4222 

4223 

4224 

4225 


.SBTTL TEST 6 - FILL & EMPTY BUFFER - FNC TST 
BR BGNT6 ;BR TO BGN TST 

106 T6MSG: .ASCIZ / FILL 8 EMPTY BUFFER - FNC TST/ 
.EVEN 




TEST TO VERIFY THE DEVICE BUFFER DATA IS VALID AFTER A FILL/EMPTY 
BUFFER COMMAND SEQUENCE. 


JGNTST 


IF FUNCTION TEST 

THEN-SETUP TEST IDENT 

SETUP DENSITY C0NTR0L=D0U8LE 
CALL SETUP DEVICE COMMANDS 
SET DATA PATTERN=RANDOM 
CALL DATA PATTERN SETUP 
CALL FILL BUFFER 
CALL ERROR CHECK 
CALL EMPTY BUFFER 
CALL ERROR CHECK 
SET EMPTY BUFFER FLAG 
CALL DATA CHECK 


ENDTST 


ENDIF 


4226 





# 



4227 








4228 

023230 





TSETUP 



023230 

012737 

023340 

002466 

BGNT6: 

MOV 

#T6TBL.TSTID 


023236 

032737 

000002 

002324 

IAT6: 

BI T 

AFUNCTT.TSTMOD 


023244 

001433 




BEQ 

XT6 


023246 

004737 

020700 



CALL 

FTSTUP 

4229 

023252 

052737 

000002 

002476 


BIS 

#DDCFLG.FLAGST 

4230 

023260 

004737 

021014 



CALL 

SUDVCD 

4231 

023264 

005037 

012660 



CLR 

PAT 

4232 

023270 

004737 

012306 



CALL 

STDATP 

4233 

023274 

004737 

010510 



CALL 

FILBUF 

4234 

023300 

004737 

017724 



CALL 

ERRCHK 

4235 

023304 

004737 

010626 



CALL 

EMPBUF 

4236 

023310 

004737 

017724 



CALL 

ERRCHK 

4237 

023314 

052737 

000020 

002476 


BIS 

#embuff,flagst 

4238 

023322 

004737 

013246 



CALL 

DATACK 

4239 

023326 

042737 

000020 

002476 


BIC 

AEMBUFF.FLAGST 

4240 

023334 




XT6: 

EXIT 

TST 


SETUP TEST ID TBL-TEST# 6 

IF TEST MODE=FUNCTION TEST 

BIT SET, THEN 

CALL FUNCTION TEST SETUP 

SET DOUBLE DENSITY CONTROL FLAG 

CALL SETUP DEVICE COMMANDS 

SET DATA PATTERN=RANDOM 

CALL SET DATA PATTERN 

CALL FILL BUFFER 

CALL ERROR CHECK 

CALL EMPTY BUFFER 

CALL ERROR CHECK 

SET EMPTY BUFFER FLAG 

CALL DATA CHECK 

CLEAR EMPTY BUFFER FLAG 


4241 

023340 


REGTBL CSONLY 




015026 

REGS1= 

CSONLY 

4242 

023340 


TTBL 



023340 

023170 

T6TBL : .WORD 

T6HSG 


023342 

177777 

.WORD 

-1 


023344 


T6RTB: 



023344 

01 5026 

.WORD 

REGS1 


023346 

177777 

.WORD 

-1 

4243 

023350 


ENDTST 
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G 9 


SEC 110 


42<,6 


023352 000420 
023354 040 040 


424 7 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 


.SBTTl TEST 7 - READ 8 WPHE SECTOR - FNC TST 
BR BGNT7 ;BR TO BGN TST 

122 T7MSG: .ASCIZ / READ t WRITE SECTOR - FNC TST/ 

.EVEN 


TEST TO VERIFY THE DEVICE WILL READ AND WRITE IN BOTH DENSITIES WITHOUT 
AN ERROR. 


BGNTST 

IF FUNCTION TEST 
: THEN-SETUP TEST IDENT 
: CALL DENSITY CHECK 

SETUP TRACK=0, SECT0R=10 
CLEAR ENDDO FLAG 
BGNDO 

: SET DENSITY CONTROL WORD=OPPOSITE DENSITY STATUS 
: : SET NEGATIVE TEST FLAG 

: SETUP EXPECTED DEN ERR 
: CALL WRITE SECTOR 
: CALL ERROR CK 
: CALL READ SECTOR 
: CALL ERROR CK 

: SET DENSITY CONTROL WORD=DOUBLE DEN 
: CALL WRITE SECTOR 
: CALL ERROR CK 
: CALL READ SECTOR 
: CALL ERROR CK 
: CALL SET TRACK=76. SECT0R=10 
: COMP ENDDO FLAG 
DOUNTIL ENDDO FLAG=0 

ENDIF 

ENDTST 



H 9 
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4280 023414 





TSETUP 

#T7TBL ,TST ID 

023414 

012737 

023602 

002466 

BGNT7: 

MOV 

023422 

032737 

000002 

002324 

IAT7: 

BIT 

#FUNCTT,TSTM0D 

023430 

001462 




BEQ 

XT7 

023432 

004737 

020700 



CALL 

FTSTUP 

4281 023436 

004737 

017350 



CALL 

DENCHK 

4282 023442 

005037 

002374 



CLR 

TRACK 

4283 023446 

012737 

000012 

002376 


MOV 

#10. .SECTOR 

4284 023454 

005037 

002504 



CLR 

TTEMP1 

4285 023460 

000240 



BBT7: 

NOP 


4286 023462 

004737 

020472 



CALL 

SDENC 

4287 023466 

042737 

004000 

002476 


BIC 

#NEGTST.FLAGST 

4288 023474 

004737 

010744 



CALL 

WRITE 

4289 023500 

004737 

017724 



CALL 

ERRCHK 

4290 023504 

004737 

011062 



CALL 

READ 

4291 023510 

004737 

017724 



CALL 

ERRCHK 

4292 023514 

004737 

020430 



CALL 

CDENC 

4293 023520 

052737 

004000 

002476 


BIS 

#NEGTST,FLAGST 

4294 023526 

012737 

000030 

002464 


MOV 

#DENERR,NGTSER 

4295 023534 

004737 

010744 



CALL 

WRITE 

4296 023540 

004737 

017724 



CALL 

ERRCHK 

4297 023544 

004737 

011062 



CALL 

READ 

4298 023550 

004737 

017724 



CALL 

ERRCHK 

4299 023554 

005137 

002504 



COM 

TTEMP1 

4300 023560 

004737 

020430 



CALL 

CDENC 

4301 023564 

004737 

021174 



CALL 

STTK76 

4302 023570 

005737 

002504 


UBT7: 

TST 

TTEMP1 

4303 023574 

001331 




BNE 

BBT7 

4304 023576 




XT7: 

EXIT 

TST 

4305 023602 

015036 




REGTBL 

CSESAL 

4306 023602 





TTBL 

T7TBL: 

023602 

023354 





023604 

023606 

177777 





T7RTB: 

023606 

015036 






023610 

177777 







4307 023612 


ENDTST 


SEO 111 


HA' 

TE 




SETUP TEST ID TBL-TEST# 7 

IF TEST MODE = FUNCTION TEST 

BIT SET, THEN 

CALL FUNCTION TEST SETUP 

CALL DENSITY CHECK 

SET TRACK-0 

SET SECT0R=10. 

CLEAR ENDDO FLAG 

CALL SET DENSITY CONTROL=DENSITY STATUS 

CLEAR NEG TEST FLAG 

CALL WRITE SECTOR 

CALL ERROR CHECK 

CALL READ SECTOR 

CALL ERROR CHECK 

CALL COMPLIMENT DENSITY CONTROL 

SET NEG TEST FLAG 

SETUP EXPECTED NEG TEST ERR=DEN ERR 

CALL WRITE SECTOR 

CALL ERROR CHECK 

CALL READ SECTOR 

CALL ERROR CHECK 

COMPLIMENT ENDDO FLAG 

CALL COMPLIMENT DENSITY CONTROL 

CALL SET TRACK=76. 

DOUNTIL ENDDO FLAG 
EQUALS 0 


REGS1=CSESAL 

WORD T7MSG 
.WORD -1 


.WORD REGS1 
•WORD -1 


I 9 


sec 11,? 
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HA 

TE 


4310 

023614 

023616 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 023664 
023664 
023672 
023700 
023702 

4334 023706 

4335 023712 

4336 023716 

4337 023722 

4338 023730 

4339 023734 

4340 023740 

4341 023744 

4342 023750 

4343 023754 

4344 023760 

4345 023764 

4346 023766 


000423 

040 


040 


.SBTTL TEST 8 - WRITE SECTOR DELETED DATA - FNC TST 
BR BGNT8 ;BR TO BGN TST 

127 T8MSG: . ASC 1 2 / WRITE SECTOR DELETED DATA - FNC TST/ 

.EVEN 

+ TEST TO VERIFY THAT THE DEVICE WILL WRITE A DELETED DATA MARK ON THE 
DISKETTE WITHOUT ERROR. 


BGNTST 


ENDTST 


IF FUNCTION TEST 

THEN-SETUP TEST IDENT 

SET TRACK=76, SECTOR=10 
CALL DENSITY CHECK 
SET DELETED DATA FLAG 
SET DENSITY CONTROL UORD=DISK DENSITY 
CALL WRITE SECTOR 
CALL ERROR CK 
CALL READ SECTOR SECTOR 
CALL ERROR CK 
CLEAR DELETED DATA FLAG 
CALL WRITE SECTOR 
CALL ERROR CK 

ENDIF 


012737 

032737 

001432 

004737 

004737 

004737 

004737 

012737 

004737 

004737 

004737 

004737 

005037 

004737 

004737 

000240 


023772 

000002 

020700 

021174 

017350 

020472 

000010 

010744 

017724 

011062 

017724 

002402 

010744 

017724 


T SETUP 
002466 BGNT8: MOV 
002324 I ATS: BIT 
BEO 
CALL 
CALL 
CALL 
CALL 

002402 MOV 

CALL 
CALL 
CALL 
CALL 
CLR 
CALL 
CALL 
NOP 

XT8: EXIT 


*T8TBL,TSTID 

IFUNCTT.TSTMOD 

XT8 

FTSTUP 

STTK76 

DENCHK 

SDENC 

JDLDCMD.DELDAT 

WRITE 

ERRCHK 

READ 

ERRCHK 

DELDAT 

WRITE 

ERRCHK 

TST 


SETUP TEST ID TBL-TEST# 8 
IF TEST MODE=F UNCTION TEST 
BIT SET. THEN 
CALL FUNCTION TEST SETUP 
CALL SET TRACK=76. 

CALL DENSITY CHECK 

CALL SET DENSITY CONTROL=DENSITY STATUS 

SETUP DELETED DATA COMMAND MODE 

CALL WRITE SECTOR 

CALL ERROR CHECK 

CALL READ SECTOR 

CALL ERROR CHECK 

CLEAR DELETED DATA COMMAND MODE 

CALL WRITE SECTOR 

CALL ERROR CHECK 


4347 023772 


REGTBL CSESAL 



015036 

REGS1= 

CSESAL 

4348 023772 


TTBL 

T8MSG 

023772 

023616 

T8TBL : .WORD 

023774 

177777 

.WORD 

-1 

023776 


T8RTB: 


023776 

015036 

.WORD 

REGS1 

024000 

177777 

.WORD 

-1 

4349 024002 


ENDTST 
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4352 


024004 000414 
024006 040 040 


4353 

4354 

4355 

4356 

4357 

4358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4382 

4383 

4384 


.SBTTL TEST 9 - SET DENSITY - FNC TST 

BR BGNT9 ;8R TO BGN TST 

123 T9MSG: .ASCIZ / SET DENSITY - FNC TST/ 

.EVEN 


TEST TO VERIFY THE DEVICE WILL CHANGE DENSITIES WITHOUT INCURRING AN 
ERROR. 


BGNTST 

IF FUNCTION TEST 
: THEN-SETUP TEST IDENT 

CALL DENSITY CHECK 

SET DENSITY CONTROL UORD=DISK DENSITY 
CALL SET DENSITY 
CALL ERROR CK 

CALL SET TRACK=76, SECTOR=10 

CALL READ SECTOR 

CALL ERROR CK 

SET TRACK=0 

CALL READ SECTOR 

CALL ERROR CK 

CALL COMPLIMENT DENSITY CONTROl 

CALL SET DENSITY 

CALL ERROR CK 

CALL READ SECTOR 

CALL ERROR CK 

CALL SET TRACK=76. , SECTOR=10. 

CALL READ SECTOR 
CALL ERROR CK 

SET DENSITY CONTROL WORD=DISK density 
CALL SET DENSITY 
CALL ERROR CK 

END IF 

ENDTST 
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4387 024036 





T SETUP 

024036 

012737 

024210 

002466 

BGNT9: 

MOV 

024044 

032737 

000002 

002324 

IAT9: 

BIT 

024052 

001454 




BEQ 

024054 

004737 

020700 



CALL 

4388 024060 

004737 

017350 



CALL 

4389 024064 

004737 

020472 



CALL 

4390 024070 

004737 

011172 



CALL 

4391 024074 

004737 

017724 



CALL 

4392 024100 

004737 

021174 



CALL 

4393 024104 

004737 

011062 



CALL 

4394 024110 

004737 

017724 



CALL 

4395 024114 

005037 

002374 



CLR 

4396 024120 

004737 

011062 



CALL 

4397 024124 

004737 

017724 



CALL 

4398 024130 

004737 

020430 



CALL 

4399 024134 

004737 

011172 



CALL 

4400 024140 

004737 

01 7724 



CALL 

4401 024144 

004737 

011062 



CALL 

4402 024150 

004737 

017724 



CALL 

4403 024154 

004737 

021174 



CALL 

4404 024160 

004737 

011062 



CALL 

4405 024164 

004737 

017724 



CALL 

4406 024170 

004737 

020472 



CALL 

4407 024174 

004737 

011172 



CALL 

4408 024200 

004737 

017724 



CALL 

4409 024204 




XT9: 

EXIT 

4410 024210 

01 5036 




REGTBL 

4411 024210 





TTBL 


024210 024006 
024212 1 77777 

024214 

024214 015036 
024216 177777 

44.1 2 024220 


ENDTST 


K 9 


#T9TBL.TSTID 

fFUNCTT.TSTMOD 

XT9 

FTSTUP 

DENCHK 

SDENC 

SETDN 

ERRCHK 

STTK76 

READ 

ERRCHK 

TRACK 

READ 

ERRCHK 

CDENC 

SETDN 

ERRCHK 

READ 

ERRCHK 

STTK76 

READ 

ERRCHK 

SDENC 

SETDN 

ERRCHK 

TST 

CSESAL 


SETUP TEST ID TBL-TEST# 9 
IF TEST MODE-F UNCTION TEST 
BIT SET, THEN 
CALL FUNCTION TEST SETUP 
CALL DENSITY CHECK 

CALL SET DENSITY CONTROL=DENSI TV STATUS 
CALL SET DENSITY 
CALL ERROR CHECK 
CALL SET TRACK=76. 

CALL READ SECTOR 

CALL ERROR CHECK 

SET TRACK=0 

CALL READ SECTOR 

CALL ERROR CHECK 

CALL COMPLIMENT DENSITY CONTROL 

CALL SET DENSITY 

CALL ERROR CHECK 

CALL READ SECTOR 

CALL ERROR CHECK 

CALL SET TRACK=76. 

CALL READ SECTOR 
CALL ERROR CHECK 

CALL SET DENSITY CONTROL=DENSITY STATUS 
CALL SET DENSITY 
CALL ERROR CHECK 


REGS1 -CSESAL 


T9TBL : 

.WORD 

T9HSG 


.WORD 

-1 

T9RTB: 

.WORD 

REGS1 


.WORD 

-1 
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4415 

024222 000414 

024224 040 120 117 

4416 

4417 

4418 

4419 

4420 

4421 

4422 

4423 

4424 

4425 

4426 

4427 

4428 

4429 

4430 

4431 

4432 

4433 

4434 

4435 

4436 

4437 

4438 024254 

024254 012737 024352 002466 
024262 032737 000002 002324 
024270 001426 
024272 004737 020700 

4439 024276 012737 000400 002510 

4440 024304 004737 017350 

4441 024310 004737 020472 

4442 024314 004737 012662 

4443 024320 004737 013104 

4444 024324 004737 011062 

4445 024330 004737 017724 

4446 024334 032737 001000 002476 

4447 024342 001764 

4448 024344 000240 

4449 024346 

4450 024352 

015036 

4451 024352 

024352 024224 
024354 177777 

024356 

024356 015036 
024360 177777 

4452 024362 


l 9 

16:33 PAGE 159 


.SBTTL TEST 10 - POSITIONING - FNC TST 

BR BGNT10 ;BR TO BGN TST 

T10MSG: . ASCIZ / POSI T !ONING - FNC TST/ 

.EVEN 


TEST TO VERIFY THE DEVICE WILL CHANGE SECTORS AND TRACKS UiiHOUT 
INCURRING AN ERROR. 


BGNTST 

IF FUNCTION TEST 
: THEN-SETUP TEST IDENT 

SET TRACK PATTERN=RANDON 
CALL DENSITY CHECK 

SET DENSITY CONTROL WORD=DRV DENSITY 
BGNDO 

: : CALL GET A TRACK 

: CALL GET A SECTOR 
: CALL READ SECTOR 


: CALL ERROR CK 

DOUNTIL TRACKS DONE FLAG SET 

NOP 


; END IF 

; ENDTST 

• 

9 ** 

TSETUP 




6GNT10: 

MOV 

#T10TBL,TSTID 

SETUP TEST ID TBL-TEST# 10 


I AT 1 0 : 

BIT 

#FUNCTT,TSTMOD 

IF TEST HODE=FUNCTION TEST 



BEQ 

XT10 

BIT SET, THEN 



CALL 

FTSTUP 

CALL FUNCTION TEST SETUP 



MOV 

#ITK!RTK.TKSCFG 

SET TRK/SEC FLAGS— >TRACK=INIT & 

RANDOM 


CALL 

DENCHK 

CALL DENSITY CHECK 



CALL 

SDENC 

CALL SET DENSITY CONTROL=DENSITY 

STATUS 

BB T 10: 

CALL 

gettrk 

CALL GET TRACK 



CALL 

GETSEC 

CALL GET SECTOR 



CALL 

READ 

CAlL READ SECTOR 



CALL 

ERRCHK 

CALL ERROR CHECK 


UBT10: 

BIT 

#rRKDON,fLAGST 

DOUNTIL FLAGS->TRACK DONE FLAG 



BEO 

BBT10 

SET 



NOP 




XT10: 

EXIT 

TST 




REGTBL 

CSESAL 





REGS1=CSESAL 



TT8L 





T10TBL: 

.WORD 

T10MSG 


.WORD 

-1 

T10RTB: 

.WORD 

REGS1 


.WORD 

-1 


ENDTST 


SEC 115 


HA 

TE* 
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M 9 


SEO 116 


4456 

024364 000412 
024366 040 103 

445 7 

4458 

4459 

4460 

4461 

4462 

4463 

4464 

4465 

4466 

4467 

4468 

4469 

4470 

4471 

4472 

4473 

4474 

4475 

4476 

4477 

4478 

4479 

4480 

4481 

4482 

4483 

4484 

4485 

4486 


.SBTTl TEST 11 - CSR BITS - LGC TST 

BR BGNT11 ;BR TO BGN TST 

123 T11MSG: . ASCIZ / CSR BITS - LGC TST/ 

.EVEN 


TEST TO VERIFY THAT THE READ/URITE BITS OF THE CONTROL AND STATUS REG 
ISTER CAN BE WRITTEN INTO AND READ AND OTHERWISE BEHAVE AS EXPECTED. 


BGNTST 

IF LOGIC TEST 

: THEN-SETUP TEST TEST IDENT 

CALL RX LEGAL STATE CHECK 
WRITE RXCSR-ALL I'S (EXCEPT BITS #14 l #1) 
SETUP EXPECTED REGISTER RESULTS 
IF RXCSR DOES N0T=037566 
: THEN-SETUP ACTUAL REGISTER RESULTS 
: SETUP ERRN8R=CSR ERROR 

CALL ERROR 

ENDIF 

WRITE RXCSR-ALL 0*S 
IF RXCSR DOES NOT=004040 
: THEN-SETUP ACTUAL REGISTER RESULTS 
: SETUP ERRNBR=CSR ERROR 

CALL ERROR 

: ENDIF 

NOP 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1. INTERFACE 



N 9 
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4489 

024412 





TSETUP 


024412 

012737 

024602 

002466 

BGNT11 : 

MOV 


024420 

032737 

000001 

002324 

I AT 1 1 : 

BIT 


024426 

001463 




BEQ 


024430 

004737 

020736 



CALL 

4490 024434 





BRESET 

4491 

024436 

004737 

011610 



CALL 

4492 

024442 

004737 

017140 

155674 


CALL 

449" 

024446 

012777 

137776 


MOV 

4494 

024454 

032737 

000400 

002500 

IDT11: 

BIT 

4495 

024462 

001404 


002436 


BEQ 

4496 

024464 

012737 

005560 


MOV 

4497 

024472 

000403 


002436 


BR 

4498 

024474 

012737 

037566 

LPT11: 

MOV 

4499 024502 

023777 

002436 

155640 

IBT11: 

CMP 

4500 024510 

001410 




BEQ 

4301 

024512 

017737 

155632 

002440 


MOV 

4502 

024520 

012737 

000033 

002520 


MOV 

4503 

024526 

004737 

003060 



CALL 

4504 

024532 

012737 

004040 

002436 

EBT11: 

MOV 

4505 

024540 

012777 

000000 

155602 


MOV 

4506 

024546 

023777 

002436 

155574 

ICT11: 

CMP 

4507 

024554 

001410 




BEQ 

4508 

024556 

017737 

155566 

002440 


MOV 

4509 024564 

012737 

000033 

002520 


MOV 

4510 

024572 

004737 

003060 



CALL 

4511 

024576 




XT11 : 

EXIT 

4512 

024602 





REGTBL 

4513 024602 





TTBL 


024602 024366 
024604 000000 

024606 000004 
024610 177777 

024612 

024612 177777 

4514 024614 FRUT8L 

024614 

024614 006644 

024616 177777 

4515 024620 ENDTST 


#T11TBL,TSTID 
#LOGICT,TSTMOD 
XT1 1 
LTSTUP 

WAIT 

DVSTCK 

#137776, 9RXCS 

#LSIFLG,FLAGSP 

LDT11 

#5560, REGEXP 
IBT11 

#037566, REGEXP 
REGEXP, BRXCS 
EBT11 

9RXCS,REGACT 

#CSRERR,ERRNBR 

ERROR 

#4040, REGEXP 
#0,3RXCS 
REGEXP, 9RXCS 
XT11 

9RXCS.REGACT 

#CSRERR,ERRNBR 

ERROR 

TST 

O.RGPRT 

T11TBL: 


T11RTB: 

INTONL 

T11FTB: 


> 


«F 0 i 1 / 


SETUP TEST ID TBL-TEST# 11 

IF TEST MODE-LOGIC TEST 

BIT SET, THEN 

CALL LOGIC TEST SETUP 

BUS RESET 

WAIT FOR DONE 

CALL DEVICE STATE CHECK 

WRITE RXCSR=ALL 1’S (EXCEPT BIT#14 & #1 ) 

IF LSI FLG - FLAGSP 

SET, THEN 

SETUP EXPECTED REG RESULTS = 5560 
BR TO IF *B* 

SETUP EXPECTED REGISTER RESULTS=037566 

IF RXCSR N0T=EXPECTED REGISTER 

THEN 

SETUP ACTUAL REGISTER 
SET ERRNBR=CSRERR 
CALL ERROR 

SETUP EXPECTED REGISTER RESULTS=4040 
WRITE RXCSR=ALL 0*S 
IF RXCSR N0T=EXPECTED REGISTER 
THEN 

SETUP ACTUAL REGISTER 
SET ERRNBR=CSR ERR 
CALL ERROR 


.WORD T11MSG 
.WORD 0 
.WORD RGPRT 
.WORD -1 

.WORD -1 


WORD INTONL 
WORD -1 



B 10 


SEO 118 
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4518 


024622 000412 

024624 040 104 102 


4519 

4520 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4541 

4542 

4543 

4544 

4545 

4546 

4547 

4548 


.SBTTL TEST 12 - DBR BITS - LGC TST 

BR BGNT12 ;BR TO BGN TST 

T12MSG: .A5CIZ / DBR BITS - LGC TST/ 

.EVEN 


♦ ♦ 


TEST TO VERIFY THAT THE READ/URITE Blla OF THE DATA BUFFER REGISTER 
CAN BF WRITTEN INTO AND READ AS EXPECTED. 


BGNTST 


ENDTST 


IF LOGIC TEST 

THEN-SETUP TEST IDENT 
WRITE RXDBR-ALL I'S 
SETUP EXPECTED REGISTER RESULTS 
IF RXDBR NOT=173767 

THEN-SETUP ACTUAL REGISTER RESULTS 
SETUP ERR N8R=DBR ERR 
CALL ERROR 

END1F 

WRITE RXDBR-ALL O'S 
SETUP EXPECTED REGISTER RESULTS 
IF RXDBR NOT =000000 

THEN-SETUP ACTUAL REGISTER RESULTS 
SET ERRNBR=D8R ERR 
CALL ERROR 

END IF 
NOP 

ENDIF 


BOARD CALLOUT: 

1. INTERFACE 


Uai 

U' 



HARDWARE TESTS MACRO M1200 14-DEC-82 16:33 PAGE 165 
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4551 

024650 

024650 

012737 

025012 

002466 


024656 

032737 

000001 

002324 


024664 

001450 




024666 

004737 

020736 


455? 

024672 




4553 

024674 

004737 

011610 


4554 

024700 

012777 

177777 

155444 

4555 

024706 

012737 

173767 

002436 

4556 

024714 

023777 

002436 

155430 

4557 

024722 

001410 



4558 

024724 

017737 

155422 

002440 

4559 

024732 

012737 

000034 

002520 

4560 

024740 

004737 

003060 


4561 

024744 

005037 

002436 


4562 

024750 

012777 

000000 

155374 

4563 

024756 

023777 

002436 

155366 

4564 

024764 

001410 



4565 

024766 

017737 

155360 

002440 

4566 

024774 

012737 

000034 

002520 

4567 

025002 

004737 

003060 


4568 

025006 




4569 

025012 

025012 

024624 




025014 

000000 




025016 

000004 




025020 

025022 

177777 




02502? 

177777 



4570 

025024 

025024 

025024 

006644 




025026 

177777 



4571 

025030 





TSETUP 


BGNT12: 

MOV 

*T12TBL.TST1D 

I A T 1 2 : 

BIT 

#LOGICT. TSTHOD 


8EQ 

XT12 


CALL 

BRESET 

LTSTUP 


CALL 

WAIT 


MOV 

#-1,aRXDB 


MOV 

#173767,REGEXP 

IBT12: 

CMP 

REGEXP, 3RXDB 


BEO 

EBT12 


MOV 

SRXDB.REGACT 


MOV 

ADBRERR.ERRNBR 


CALL 

ERROR 

E8T12: 

CLR 

REGEXP 


MOV 

*0,aRXDB 

ICT12: 

CMP 

REGEXP. 3RXDB 


BEQ 

XT12 


MOV 

iRXDB.REGACT 


MOV 

#DBRERR,ERRN6R 


CALL 

ERROR 

XT12: 

EXIT 

TSf 


TTBL 

O.RGPRT 

T12TBL: 



T12RTB: 

FRUTBL INTONL 

T12FTB: 

ENDTST 



SETUP TEST ID TBL-TEST# 12 

IF TEST MODE=LOGIC TEST 

BIT SET, THEN 

CALL LOGIC TEST SETUP 

BUS RESET 

WAIT FOR DONE 

WRITE RXDBR-ALL l'S 

SETUP EXPECTED REGISTER RESULTS=1 73767 

IF RXDBR NOT=EXPECTED REGISTER 

THEN 

SETUP ACTUAL REGISTER RESULTS 
SET ERRNBR-DBR ERR 
CALL ERROR 

SETUP EXPECTED REGISTER RESULTS=0'S 
WRITE RXDBR=ALL O’S 
IF RXDBR NOT=EXPECT£D REGISTER 
THEN 

SETUP ACTUAL REGISTER RESULTS 
SET ERRNBR-DBR ERR 
CALL ERROR 


WORD 

T12HSG 

WORD 

0 

WORD 

RGPRT 

WORD 

-1 

WORD 

-1 

WORD 

INTONL 

WORD 

-1 
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D 10 


SEO 120 


M l 


4574 

025032 000420 
025034 040 103 

4575 

4576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 

4584 

4585 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

4596 

4597 

4598 

4599 

4600 

4601 

4602 

4603 

4604 


.SBTTl TEST 13 - CSR-DBR COMMON BYTE - LGC TST 
BR BGNT13 ;BR TO BGN TST 

123 T13MSG: .ASCIZ / CSR-DBR COMMON BYTE - LGC TST/ 
.EVEN 


TEST TO VERIFY THAT THE LOWER BYTE OF THE RXCS MAPS INTO THE RXDB AND 
THEREFORE CHECK WRITE ONLY BITS OF THE RXCS. 


BGNTST 

IF LOGIC TEST 
: THEN-SETUP TEST IDENT 

: WRITE RXCSR LOW BYTE-ALL 1’S (EXCEPT BIT 01 ) 

SETUP EXPECTED REGISTER RESULTS 
: IF RXDBR LOW BYTE N0T=376 

: THEN-SETUP ACTUAL REGISTER RESULTS 
SETUP ERR N8R=CSR ERR 
CALL ERROR 

ENDIF 

WRITE RXCSR LOW BYTE-ALL O’S 
SETUP EXPECTED REGISTER RESULTS 
IF RXDBR LOW BYTE N0T=000 
: THEN-SETUP ACTUAL REGISTER RESULTS 
SETUP ERR NBR=CSR ERR 
CALL ERROR 

ENDIF 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1. INTERFACE 



E 10 
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4607 025074 

025074 012737 025242 002466 
025102 032737 000001 002324 

025110 001452 
025 1 12 004737 020736 

4608 025116 

4609 025120 004737 011610 

4610 025124 012777 000376 155216 

4611 025132 012737 000366 002436 

4612 025140 123777 002436 155204 

4613 025146 001413 

4614 025150 117737 155176 002440 

4615 025156 042737 177400 002440 

4616 025164 012737 000033 002520 

4617 025172 004737 003060 

4618 025176 005037 002436 

4619 025202 112777 000000 155140 

4620 025210 123777 002436 155134 

4621 025216 001407 

4622 025220 005037 002440 

4623 025224 012737 000033 002520 

4624 025232 004737 003060 

4625 

4626 025236 

4627 

4628 025242 

025242 025034 
025244 000000 

025246 000004 
025250 177777 
025252 

025252 177777 

4629 025254 
025254 

025254 006644 
025256 177777 

4630 025260 



T SETUP 


BGNT13: 

MOV 

#T13TBL.TSTID 

I ATI 3 : 

BIT 

#LOGICT,TSTMOD 

BEQ 

XT 1 3 


CALL 

BRESET 

LTSTUP 


CALL 

WAIT 


MOV 

#376,aRXCS 


MOV 

#366. REGEXP 

IBT13: 

CMPB 

REGEXP, 3RXDB 

BEQ 

EBT13 


MOVB 

3RXD8.REGACT 


BIC 

#1 77400.REGACT 


MOV 

#CSRERR,ERRNBR 


CALL 

ERROR 

EBT13: 

CLR 

REGEXP 


MOVB 

#0,3RXCS 

ICT13: 

CMPB 

REGEXP, 3RXDB 


BEQ 

XT1 3 


CLR 

REGACT 


MOV 

#CSRERR,ERRNBR 


CALL 

ERROR 

XT13: 

EXIT 

TST 


TTBL 

0, RGPRT 

T13TBL 


T13RTB: 

FRUTBL INTONL 

T13FTB: 


ENDTST 


SEC 121 


H 

T 


SETUP TEST ID TBL-TEST# 13 
IF TEST M0DE=10GIC TEST 
BIT SET, THEN 
CALL LOGIC TEST SETUP 
BUS RESET 
WAIT FOR DONE 

WRITE RXCSR LOW BYTE-ALL IF (EXCEPT BIT #1 ) 
SETUP EXPECTED REGISTER RESULTS=366 
IF RXDBR LOW BYTE N0T=376 
THEN 

SETUP ACTUAL REGISTER RESULTS 
CLEAR TOP BYTE 
SET ERRN6R=CSR ERR 
CALL ERROR 

SETUP EXPECTED REGISTER RESULTS=0'S 

WRITE RXDBR=ALL O’S 

IF RXDBR NOT=EXPECTED RESULTS 

SETUP ACTUAL REGISTER RESULTS 
SETUP ERRNBR=CSR ERR 
CALL ERROR 


.WORD T13MSG 
.WORD 0 
.WORD RGPRT 
.WORD -1 

.WORD -1 


WORD INTONL 
WORD -1 
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4633 

025262 000415 

025264 040 102 125 

4634 

4635 

4636 

4637 

4638 

4639 

4640 

4641 

4642 

4643 

4644 

4645 

4646 

4647 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 



TEST TO VERIFY THAT THE INTERFACE BOARD WILL COMPLETE A BUS INITIALIZE. 


BGNTST 

IF LOGIC TEST 
: THEN-SETUP TEST IDENT 
: ISSUE BUS INITIALIZE 

IF RXCSR ERROR BIT SET 
: : THEN-IF RXESR AC LOW BIT SET 

: : THEN-SETUP ERROR 

: : : CALL ERROR 

: ENDIF 

: ENDIF 

: NOP 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1. INTERFACE 

2. CONTROLLER 


SEG 122 



6 10 


SEC 125 


HARDWARE TESTS 
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-DEC-82 

16:33 
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TEST 14 

- BUS 

INITIALIZE - LGC 

TST 




4660 








4661 

025316 





TSETUP 



025316 

012737 

025462 

002466 

BGNT14 

: MOV 

AT14TBL.TSTID 


025324 

032737 

000001 

002324 

IAT14: 

BIT 

ALOGICT.TSTMOD 


025332 

001451 




BEQ 

X T 1 4 


025334 

004737 

020736 



CALL 

LTSTUP 

4662 

025340 





BRESET 


4663 

025342 

032777 

100000 

155000 

IBT14 : 

BIT 

fERRBIT.BRXCS 

4664 

025350 

001442 




BEQ 

X T 1 4 

4665 

025352 

032777 

000004 

154772 

ICT14: 

BIT 

AINITDN.BRXDB 

4666 

025360 

001406 




BEQ 

IDT14 

4667 

025362 

012737 

000061 

002520 


MOV 

ANOITDB.ERRNBR 

4668 

025370 

004737 

003060 



CALL 

ERROR 

4669 

025374 

000430 




BR 

XT 1 4 

4670 

025376 

032777 

000030 

154746 

IDT 1 4 : 

BIT 

ADENERR.9RXDB 

4671 

025404 

001406 




BEQ 

IET14 

4672 

025406 

012737 

000020 

002520 


MOV 

fDENDSK.ERRNBR 

4673 

025414 

004737 

003060 



CALL 

ERROR 

4674 

025420 

000416 




BR 

XT14 

4675 

025422 

032777 

000010 

154722 

IET14: 

BIT 

AACL0W.8RXDB 

4676 

025430 

001006 




BNE 

LET14 

4677 

025432 

012737 

000050 

002520 


MOV 

aaclouf.errnbr 

4678 

025440 

004737 

003060 



CALL 

ERROR 

4679 

025444 

000404 




BR 

XT 1 4 

4680 

025446 

004737 

011340 


LET14: 

CALL 

RDERCD 

4681 

025452 

004737 

017724 



CALL 

errchk 

4682 

025456 




XT14 : 

EXIT 

TST 

4683 

025462 





REGTBL 


4684 

025462 





TTBL 

REGCK.O 


025462 

025264 





T14TBL: 


025464 

000001 







025466 

000000 







025470 

177777 







025472 






T14RTB: 


025472 

177777 






4685 

025474 





FRUTBL 

INFCTL 


025474 






T14FTB: 


025474 

006640 







025476 

177777 






4686 

025500 





ENDTST 



HA' 

TE 


SETUP TEST ID TBL-TEST# 14 
IF TEST M0DE=L0GIC TEST 
BIT SET. THEN 
CALL LOGIC TEST SETUP 

IF RXCSR ERROR BIT 
SET. THEN 

IF RXESR=INIT DONE 
SET. THEN 

SET ERR NBR=NO INI T DONE-BUS 
CALL ERROR 
BR TO EXIT 
IF RXESR=DENSITY ERR 
SET. THEN 

SET ERR NBR=DISK DEN ERR 
CALL ERROR 
BR TO EXIT 

IF RXESR NOT=INITIALIZE DONE BIT 
SET. THEN 

SET ERR NBR=NO HIT DONE-BIT 

CALL ERROR 

BR TO EXIT 

CALL READ ERROR CODE 

CALL ERROR CHECK 


.WORD 

T14MSG 

.WORD 

REGCK 

.WORD 

0 

.WORD 

-1 

.WORD 

-1 

.WORD 

INFCTL 

.WORD 

-1 
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H 10 


SCO It. 


4689 


025502 

025504 


4690 

4691 

4692 

4693 

4694 

4695 

4696 

4697 

4698 

4699 

4700 

4701 
',702 

4703 

4704 

4705 

4706 

4707 

4708 

4709 

4710 

4711 


4712 

4713 

4714 

4715 

4716 

4717 

4718 


4719 


4 720 


025546 

025546 

025554 

025562 

025564 

025570 

025574 

02560C 

025604 

025610 

025610 

025610 

025612 

025614 

025616 

025620 

025620 

025622 

025624 

025624 

025624 

025626 

025630 


.SBTTL TEST 15 - PROGRAMMED INITIALIZE - LGC TST 
000421 BR BGNT15 ;BR TO BGN TST 

040 120 122 T15MSG: .ASCIZ / PROGRAMMED INITIALIZE - LGC TST/ 

.EVEN 


TEST TO VERIFY THAT THE INTERFACE BOARD WILL COMPLETE A PROGRAMMED 
INITIALIZE. 


BGNTST 

IF LOGIC TEST 
: THEN-SETUP TEST IDENT 

CALL PROGRAMMED INITIALIZE 
: CALL DEVICE STATE CK 

CALL ERROR CHECK 
NOP 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1. INTERFACE 

2. CONTROLLER 


TSETUP 


012737 

025610 

002466 

BGNT15: 

MOV 

#T15TBL.TSTID 

SETUP TEST ID TBL-TEST# 15 

032737 

000001 

002324 

I AT 1 5 : 

BIT 

tLOGICT.TSTMOD 

IF TEST HODE=LOGIC TEST 

001410 




BEQ 

XT15 

BIT SET, THEN 

004737 

020736 



CALL 

LTSTUP 

CALL 

LOGIC TEST SETUP 

004737 

010440 



CALL 

INTIAL 

CALL 

PROG INITIALIZE 

004737 

017140 



CALL 

DVSTCK 

CALL 

DEVICE STATE CK 

004737 

017724 



CALL 

ERRCHK 

CALL 

ERROR CHECK 




XT 1 5 : 

EXIT 

TST 







REGT8L 

CSESIT 



015056 





REGS1: 

sCSESIT 





TTBL 

REGCK.O 



025504 





T15TBL: 

.WORD 

T15MSG 

000001 






.WORD 

REGCK 

000000 






.WORD 

0 

177777 





T15RTB: 

.WORD 

-1 

015056 






.WORD 

REGS1 

177777 




FRUTBL 

INFCTL 

.WORD 

-1 






T15FTB: 



006640 






.WORD 

INFCTL 

177777 




ENDTST 


.WORD 

-1 
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4723 


025632 000413 

025634 040 120 117 


4724 

4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 


.SBTTL TEST 16 - POWER FAIL - LGC TST 

BR BGNT16 ;BR TO BGN TST 

T16MSG: .ASCIZ / POWER FAIL - LGC TST/ 

.EVEN 




TEST TO VERIFY THAT THE ACLOW CIRCUITS OPERATE AS EXPECTED. 


BGNTST 


LA3 


IF LOGIC TEST 

THEN-SETUP TEST IDENT 

IF MANUAL INTERVENTION ALLOWED 

THEN-ASK OPERATOR TO POWER DOWN RX02 ONLY 
IF OPERATION COMPLETE 

THEN-CALL PROGRAMMED INITIALIZE 
SETUP EXPECTED ERROR=AC LOW 
SET NEG TEST FLAG=TEST FLAGS 
CALL ERROR CHECK 
ASK OPERATOR TO POWER UP RXO 2 
IF OPERATION COMPLETE 

THEN-CLEAR OUT EXPECTED ERROR 

CLEAR NEG TEST FLAG=TEST FLAGS 
CALL INITIAL 
CALL ERROR CHECK 

END IF 


CB3 

CC3 


CD3 


ENDTST 


END IF 


END IF 


ENDIF 


BOARD CALLOUT: 

1. INTERFACE 



J 10 
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TEST 16 

- POWER FAIL - 

LGC TST 





4756 

025662 




TSETUP 




025662 

012737 

026102 

002466 

8GNT16: MOV 

#T16TBL , TST ID 

;SE T '!P TEST ID TBL-TEST# 16 


025670 

032737 

000001 

002324 

I ATI 6 : BIT 

AL0G1CT.TSTM0D 

; IF TEST MODE=LOGIC TEST 


025676 

001477 



BE 3 

XT16 

;BIT SET. THEN 


025700 

004737 

020736 


CALL 

LTSTUP 

.-CALL LOGIC TEST SETUP 

4757 

025704 

005037 

002504 


CLR 

T TEMPI 

;SET TEMPI =0 

4758 

025710 




IBT16: MANUAL 


;IF MANUAL INTERVENTION 

4759 

025712 




BNCOMPLETE XT16 

.•ALLOWED. THEN 

4760 

025714 




PRINTF 

APWRMS.UNIT 

.•PRINT MSG 

4761 

025740 




GMANIL 

PWDNRY, TTEMP1.1, 

YES 

4762 

025754 

032737 

000001 

002504 

ICT16: BIT 

A1.TTEMP1 

; IF RX02 IS 

4763 

025762 

001445 



BEQ 

XT16 

.•POWERED DOWN. THEN 

4/64 

025764 

004737 

010440 


CALL 

INTI AL 

.-CALL INITIALIZE 

4765 

025770 

012737 

000050 

002464 

MOV 

AACLOWF .NGTSER 

.•SETUP EXPECTED ERROR=AC LOW 

4766 

025776 

052737 

004000 

C02476 

BIS 

anegtst.flagst 

.-SET NEG TEST FLAG=TEST FLAGS 

4767 

026004 

004737 

017724 


CALL 

ERRCHK 

.-CALL ERROR CHECK 

4768 

026010 




PRINTF 

APWRMS.UNIT 

.•PRINT MSG 

4769 

026034 




GMANIL 

PWUPRY. T TEMPI. 1. 

YES 

4770 

026050 

032737 

000002 

002504 

IDT16: BIT 

/F2.TTEMP1 

; IF RX02 IS 

4771 

026056 

001407 



BEQ 

XT16 

.•POWERED UP. THEN 

4772 

026060 

042737 

004000 

002476 

6IC 

anegtst.flagst 

.•CLEAR NEG TEST FLAG=TEST FLA 

4773 

026066 

004737 

010440 


CALL 

INTI AL 

.-CALL INITIALIZE 

4774 

026072 

004737 

017724 


CALL 

ERRCHK 


4775 

026076 




X T 1 6 : EXIT 

TST 


4776 

026102 




REGTBL 

C SE SIT 




015056 





REGSUCSESIT 

4777 

026102 




TTBL 

REGCK.O 



026102 

025634 




T16TBL: 

.WORD T16MSG 


026104 

C00001 





.WORD REGCK 


026106 

000000 





.WORD 0 


026110 

177777 





.WORD -1 


026112 





T16RTB: 



026112 

015056 





.WORD REGS1 


026114 

177777 





.WORD -1 

4778 

026116 




FRUT8L 

INTONL 



026116 





T16F TB: 



026116 

006644 





.WORD INTONL 


026120 

177777 





.WORD -1 

**rfy 

4780 

026122 

045 

116 

045 

PWRMS: .ASCIZ 

/XNXA IS FLOPPY 

SYSTEM CONTAINING UNIT #X02/ 

4781 

026175 

040 

040 

120 

PWDNRY: .ASCIZ 

/ POWERED DOWN/ 

4782 

026214 

040 

040 

120 

PWUPRY: .ASCIZ 

/ POWERED UP/ 


4783 





.EVEN 



4784 








4785 

026232 




ENDTST 




SEC 126 


HA1 

TE^ 



K 10 


SEC 127 
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4788 

026234 000420 
026236 040 103 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

4796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 

4806 

4807 

4808 

4809 

4810 

4811 

4812 

4813 

4814 


.SBTTL TEST 17 - CONTROLLER-INTERFACE - LGC TST 
BR BGNT17 ;BR TO BGN TST 

117 T17MSG: .ASCIZ / CONTROLLER-INTERFACE - LGC TST/ 

.EVEN 

;*TEST TO VERIFY THAT THE INTERFACE BOARD STATE SEQUENCER IS FUNCTIONAL. 
; ALSO TO VERIFY THE CONTROLLER-INTERFACE HANDSHAKE BY TRYING FUNCTIONS 
; UITH MINIMUM READ/URITE BOARD INVOLVEMENT. 


BGNTST 

IF LOGIC TEST 
: THEN-SETUP TEST IDENT 

SET PROTOCAL CHECK (TEST SETUP SETS VIS TEST TABLE) 

CALL READ ERROR CODE 

CALL ERROR CHECK 

CALL FILL BUFFER 

CALL ERROR CHECK 

CALL EMPTY BUFFER 

CALL ERROR CHECK 

CALL READ HAINT STATUS 

CALL ERROR CHECK 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1. CONTROLLER 

2. INTERFACE 



L 10 



no 128 


HAI 

TE’ 


SETUP TEST ID TBL-TEST# 17 

IF TEST M0DE=L0GIC TEST 

BIT SET. THEN 

CALL LOGIC TEST SETUP 

SET READ ERROR CODE TEST=FLAGSP 

CALL READ ERKOR CODE 

CALL ERROR CHECK 

CLEAR READ ERROR CODE TEST=FLAGSP 

CALL FILL BUFFER 

CALL ERROR HECK 

CALL EMPTY BUFFER 

CALL ERROR CHECK 

INCREMENT TST COMMAND CTR ** 

CALL READ MAINTENANCE STATUS 
CALL ERROR CHECK 


REGS1=CSESND 

REGS2=CSESRS 

.WORD T17MSG 
.WORD REGCK 
.WORD PROPRT 
.WORD -1 

.WORD REGS1 
.WORD REGS? 
.WORD -1 


WORD CTLINF 
WORD -1 



* io 


SEO 129 
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4837 

026430 

026432 

4838 

4839 

4840 

/fl/J 

000410 

040 

116 

.S8TTL TEST 18 - NPR - LGC TST 

BR BGNT18 ;BR TO BGN TST 

120 T18MSG: .ASCIZ / NPR - LGC TST/ 

.EVEN 

;++ 

; TEST TO VERIFY THAT THE NPR LOGIC WILL STORE A WORD IN MEMORY. 






4842 



; BGNTST 


4843 



; IF LOGIC TEST 

4844 



• 

THEN-SETUP TEST IDENT 

4845 



• 

SET ERROR CODE ST0RAGE=1'S 

4846 



• 

CALL READ ERROR CODE 

4847 



t 

IF ERROR CODE STORAGE^’ S 

4848 



l 

: THEN-CALL ERROR 

4849 



l 

ENDIF 

4850 



l 

SET WORD C0UNT=128. 

4851 



l 

SET DATA PATTERNS '$ 

4852 



l 

CALL SET DATA PATTERN 

4853 




DATA BUFFER AREA=1'S (BEGIN. END & END+1) 

4854 



l 

SET DENSITY CONTROL=DOUBLE DENSITY 

4855 



l 

CALL FILL BUFFER 

4856 



; 

CALL LOGIC TEST ERROR CK 

4857 



; 

CALL EMPTY BUFFER 

4858 



; 

CALL ERROR CK 

4859 



• 

IF BEGIN DATA BUFFER AREA N0T=0'S 

4860 



; 

: THEN-SETUP NPR ERROR 

4861 



; 

CALL ERROR 

4862 



• 

ENDIF 

4863 



• 

IF END DATA BUFFER AREA N01=0'S 

4864 



• 

: THEN-CALL NPR ERROR 

4865 



• 

CALL ERROR 

4866 



• 

ENDIF 

4867 



• 

IF END*1 DATA BUFFER N0T=1'S 

4868 



• 

: THEN-CALL NPR ERROR 

4869 



• 

CALL ERROR 

4870 



• 

ENDIF 

4871 



ENDIF 

4872 

/ 072 



; ENDTST 


HOf D 



0 ***** 


4874 



; — 


4875 
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4878 

026452 





026452 

012737 

026752 

002466 


026460 

032737 

000001 

002324 


026466 

001527 




026470 

004737 

020736 


4879 

026474 

012737 

177777 

002442 

4880 

026502 

004737 

011340 


4881 

026506 

022737 

177777 

002442 

4882 

026514 

001005 



4883 

026516 

012737 

000053 

002520 

4884 

026524 

004737 

003060 


4885 

026530 

042737 

000200 

002476 

4886 

026536 

012737 

000200 

002370 

4887 

026544 

012737 

000001 

012660 

4888 

026552 

004737 

012306 


4889 

026556 

012702 

177777 


4890 

026562 

013737 

002370 

002504 

4891 

026570 

006337 

002504 


4892 

026574 

162737 

000004 

002504 

4893 

026602 

013701 

002504 


4894 

026606 

010237 

036622 


4895 

026612 

110261 

036622 


4896 

026616 

005201 



4897 

026620 

110261 

036622 


4898 

026624 

012737 

000400 

002412 

4899 

026632 

004737 

010510 


4900 

026636 

004737 

017724 


4901 

026642 

004737 

010626 


4902 

026646 

004737 

017724 


4903 

026652 

005737 

036622 


4904 

026656 

001406 



4905 

026660 

012737 

000053 

002520 

4906 

026666 

004737 

003060 


4907 

026672 

000425 



4908 

026674 

013701 

002504 


4909 

026700 

105761 

036622 


4910 

026704 

001406 



4911 

026706 

012737 

000053 

002520 

4912 

026714 

004737 

003060 


4913 

026720 

000412 



4914 

026722 

005201 



4915 

026724 

126127 

036622 

177777 

4916 

026732 

001405 



4917 

026734 

012737 

000053 

002520 

4918 

026742 

004737 

003060 


4919 

026746 




4920 

026752 






015076 



4921 

026752 





026752 

026432 




026754 

000001 




026756 

000000 




026760 

177777 




026762 





026762 

015076 




026764 

177777 



4922 

026766 





TSETUP 


BGNT18: 

MOV 

#T18TBL,TSTID 

I AT 1 8 : 

BIT 

#LOGICT,TSTMOD 


BED 

XT18 


CALL 

LTSTUP 


MOV 

#*1 .XERUUT 


CALL 

RDERCD 

I9T18: 

CMP 

#-1. XERUUT 


BNE 

EBT18 


MOV 

#NPRERR.ERRNBR 


CALL 

ERROR 

EBT18: 

BIC 

4TRECFLG.FLAGST 


MOV 

#128. .WDCNT 


MOV 

#1 .PAT 


CALL 

STDATP 


MOV 

#-1 ,R2 


MOV 

WDCNT. TTEMP1 


ASL 

TTEMP1 


SUB 

4T4.TTEMP1 


MOV 

TTEMP1 ,R1 


MOV 

R2.DATBUF 


MOVB 

R2.DATBUF <R1 ) 


INC 

R1 


MOVB 

R2.DATBUF (R1 ) 


MOV 

#DENBIT,DENSTY 


CALL 

FILBUF 


CALL 

ERRCHK 


CALL 

EMPBUF 


CALL 

ERRCHK 

ICT18: 

TST 

DATBUF 


BEQ 

ECT18 


MOV 

JNPRERR.cRRNBR 


CALL 

ERROR 


BR 

XT18 

EC T 1 8 : 

MOV 

TTEMP1.R1 

IDT18: 

TSTB 

DATBUF (R1) 


BEQ 

EDT18 


MOV 

#NPRERR.ERRNBR 


CALL 

ERROR 


BR 

XT18 

EDT18: 

INC 

R1 


CMPB 

DATBUF (R1),#-1 


BEQ 

XT18 


MOV 

#NPRERR.ERRNBR 


CALL 

ERROR 

XT 1 8 : 

EXIT 

TST 


REGTBL 

CSESND 


TTBL 

REGCK.O 



T18TBL: 



T18RTB: 


FRUT8L INFCTL 


SETUP TEST ID TBL-TEST# 18 

IF TEST MODE=LOGIC TEST 

BIT SET. THEN 

CALL LOGIC TEST SETUP 

SET READ ERROR CODE STORAGES* S 

CALL READ ERROR CODE 

IF READ ERROR CODE STORAGES* S 

THEN 

SET ERR NUMBER-NPR ERROR 
CALL ERROR 

CLEAR RED ERR COD FLG = FLAGS TST 
SET DEVICE WORD COUNT=128 
SET DATA PAT=ALL ZEROS 
CALL SET DATA PATTERN 

set r 2 =all rs 

SET TEMP1=WORD COUNT 

DOUBLE IT FOR ADDRESSING WORDS IN MEM 

ADJUST TO END OF BUFFER 

SET R1=TEMP1 

SET DATA BUFFER EEGIN=1'S 
SET DATA BUFFER END=1'S 
BUMP INDEX 

SET DATA BUFFER END *1=1' S 

SET DENSITY CONTROL=DOUBLE DENSITY 

CALL FILL BUFFER 

CALL ERROR CHECK 

CALL EMPTY BUFFER 

CALL ERROR CHECK 

IF DATA BUFFER BEGIN 

NOT=0, THEN 

SETUP ERRNBR=NPR ERR 

CALL ERROR 

BR TO EXIT 

SET R1=TEMP1 

IF DATA BUFFER END 

N0T=0. THEN 

SETUP ERRN8R=NPR ERR 

CALL ERROR 

BR TO EXIT 

BUMP INDEX 

IF DATA BUFFER END +1 
NOT=1'S. THEN 
SETUP ERRNBR=NPR ERR 
CALL ERROR 


REGS1=CSESND 


.WORD 

T18MSG 

.WORD 

REGCK 

.WORD 

0 

.WORD 

-1 

.WORD 

REGS1 

.WORD 

-1 
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026766 

026766 006640 
026770 177777 
4923 026772 


T18FTB: 


.WORD 

.WORD 


INFCTL 

-1 


ENDTS'i 
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4926 

4927 

4928 

4929 

4930 

4931 

4932 

4933 

4934 

4935 

4936 

4937 

4938 

4939 

4940 

4941 

4942 

4943 

4944 

4945 

4946 

4947 

4948 

4949 

4950 

4951 

4952 

4953 

4954 

4955 

4956 

4957 

4958 

4959 

4960 

4961 

4962 

4963 

4964 

4965 

4966 

4967 

4968 

4969 

4970 


026774 

026776 

027004 

027006 

027012 

027014 

027020 

027022 

027030 

027034 

027036 

027042 

027046 

027054 

027056 

027062 

027066 

027074 

027076 

027100 

027102 


SBTTL - HOD U.SFT.NAT - ADDRESS NPR ADDRESS TEST 


8GNSUB NAT 

NOP 

IF CTR < 2 

THEN-IF CfR=0 

: THEN-CLEAR ADR 
: ELSE-ADR=ADR*2 
END IF 

INCREMENT COUNTER 
ELSE-INCREMENT COUNTER 

DOUBLE ADR (ADR=2XADR) 

IF ADR > 40000 

THEN-SET DONE IN FLAGS 
CLEAR CTR 
CLEAR ADR 

SET DO LOOP DONE FLAG 

ENDIF 


000240 

022737 

103014 

005737 

001003 

005037 

000403 

012737 

005237 

000420 

005237 

006337 

022737 

101407 

005037 

005037 

052737 

000240 

000207 

000000 

000000 


000002 

027100 

027102 

000002 

027100 

027100 

027102 

040000 

027100 

027102 

000010 


002476 


; ENDIF 

; ENDSUB 

0 

NAT: 

NOP 



IANAT: 

CMP 

#2, NATCTR 

IF CTR 


BHIS 

LANAT 

LESS THAN 2 . THEN 

IBNAT : 

TST 

NATCTR 

IF CTR 


BNE 

LBNAT 

EQUALS 0, THEN 


CLR 

NATADR 

CLEAR ADRS 


BR 

EBNAT 

BR TO END ’B' 

L8NAT: 

MOV 

#2, NATADR 

ELSE. SET ADR=2 

EBNAT : 

INC 

NATCTR 

INCREMENT COUNTER 


BR 

EANAT 

BR TO END ’A' 

LANAT: 

INC 

NATCTR 

INCREMENT COUNTER 


ASL 

NATADR 

DOUBLE ADDRESS 

ICNAT : 

CMP 

#40000, NATADR 

IF ADDRESS 


BLOS 

ECNAT 

GREATER THAN 40000, THEN 


CLR 

NATCTR 

CLEAR COUNTER 


CLR 

NATADR 

CLEAR ADDRESS 


BIS 

#dlpdn,flagst 

SET DO LOOP DONE FLAG 

ECNAT : 

NOP 



EANAT: 

RETURN 


RETURN 

NATCTR: 

0 


COUNTER 

NATADR: 

0 


ADDRESS 
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D 11 


SEC 133 


Hi 
' t 


4973 

027104 000420 
027106 040 116 

4974 

4975 

4976 

4977 

4978 

4979 

4980 

4981 

4982 

4983 

4984 

4985 

4986 

4987 

4988 

4989 

4990 

4991 

4992 

4993 

4994 

4995 

4996 

4997 

4998 


.SBTTL TEST 19 - NPR NON-EXISTENT MEM - LGC TST 
BR BGNT19 ;BR TO BGN TST 

120 T19MSG: .ASCIZ / NPR NON-EXISTENT MEM - LGC TST/ 
.EVEN 


TEST TO VERIFY THAT THE NPR NON-EXISTEND MEMORY LOGIC WILL TIME OUT 
WHEN GIVEN AN ILLEGAL ADDRESS. 


BGNTST 

IF LOGIC TEST 
: THEN-SETUP TEST IDENT 

IF NOT FONZ WITH 124K 
: THEN-SETUP BUS TRAPS 
: SETUP NON EXISTENT ADDRESS 

: CALL READ ERROR CODE 

IF RXCSR ERROR BIT OR RXESR NON-EXISTENT MEMORY BIT NOT SET 
: : THEN-CALL LOGIC TEST ERROR 

: ENDIF 

CLEAR ERROR SET BY TRAP 
CLEAR BUS TRAP VECTOR 

: ENDIF 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1. INTERFACE 




SEC 1 ' 


#T19TBL,TSTID 

#LOGICT,TSTHOD 

XT19 

LTSTUP 

#fonzfg,flagsp 

X T 1 9 
ABORT 

#BTRP4,#TRAP.#PR 

NXMADR.RECADR 

RDERCD 

#NXMERR,NGTSER 

fRECFLG.FLAGST 

ERRCHK 

ABORT 

#BTRP4 

INTIAL 

TST 


SETUP TEST ID T8L-TEST# 19 
IF TEST MODE=LOGIC TEST 
BIT SET, THEN 
CALL LOGIC TEST SETUP 
IF FONZ 124K FLAG 
NOT SET, THEN 
CLEAR ABORT FLAG 
06 

SETUP NON EXISTENT MEMORY ADR 

CALL READ ERROR CODE 

SETUP EXPECTED NEG TEST ERR=NXM ERR 

CLEAR READ ERR CODE FLAG (SU ERR CODE NOT EVALUATED) 

CALL ERROR CHECK 

FLAG 

CALL PROG INITIALIZE 


1.4040, 400, NXHBIT, 173777 
T19RT1 : .WORD 4040 
.WORD 400 
.WORD NXMB1T 
.WORD 173777 
REGCKiNEGTST.O 

T19TBL : .WORD 
.WORD 
.WORD 
.WORD 


;CHECK ERR BIT & NXM ERR SET 
;RXCSR SHOULD BE 
;RXCSR DONT CARE 
;RX£SR SHOULD BE 
;RXESR DONT CARE 


T19RTB: 


.WORD 

.WORD 


T19MSG 

REGCKINEGTST 

0 

-1 

T19RT1 

-1 


INTONL 


T19FTB: 


WORD INTONL 
WORD -1 
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5022 


027340 000413 
027342 040 


111 


116 


5023 

5024 

5025 

5026 

5027 

5028 

5029 

5030 

5031 

5032 

5033 

5034 

5035 

5036 

5037 

5038 

5039 

5040 

5041 


.SBTTL TEST 20 - INTERRUPT - LGC TST 

BR BGNT20 ;BR TO BGN TST 

T20MSG: .ASCIZ / INTERRUPT - LGC TST/ 

.EVEN 


♦ + 


TEST TO VERIFY THAT THE INTERRUPTS CAN BE SET AND THAT THE DEVICE 
RESPONDS AS EXPECTED. 


BGNTST 


ENDTST 


IF LOGIC TEST 

THEN-SETUP TEST IDENT 

SET PROCESSOR PRIORI TY-> -> NO INTERRUPTS 
CAUSE RX INTERRUPT (WHEN PRIORITY LOWERED) 

CALL WATCH DOG TO LOWER PRIORITY t WAIT FOR INTERRUPT 
CALL ERROR 

CLEAR RX INTERRUPT BIT 
NOP 

ENDIF 


BOARD CALLOUT: 

1. INTERFACE 


5042 








5043 








5044 027370 





TSETUP 



027370 

012737 

027462 

002466 

BGNT20: 

MOV 

#T20TBL,TSTID 

SETUP TEST ID TBL-TEST# 20 

027376 

032737 

000001 

002324 

IAT20: 

BIT 

fLOGICT.TSTMOD 

IF TEST MODE=LOGIC TEST 

027404 

001424 




BEO 

XT20 

BIT SET. THEN 

027406 

004737 

020736 



CALL 

LTSTUP 

CALL LOGIC TEST SETUP 

5045 027412 

005037 

012024 



CLR 

DX 

SET WATCH DOG MULTIPLIERS 

5046 027416 





SETPRI 

#PRI06 

SET PROCESSOR PRI=NO INTERRUPTS 

5047 027424 

052777 

000100 

152716 


BIS 

A100.3RXCS 

CAUSE RX TO INTERRUPT-WHEN PRI LOWERED 

5048 027432 

004737 

011662 



CALL 

WATCH 

CALL WATCH DOG-LOWER PRI l WAIT FOR INTERRUPT 

5049 027436 

004737 

003060 



CALL 

ERROR 

CALL ERROR 

5050 027442 

042777 

000100 

152700 


BIC 

A100.3RXCS 

CLEAR RX INTERRUPT BIT 

5051 027450 

012737 

000010 

012024 


MOV 

#10, DX 

RESET WATCH DOG MULTIPLIER 

5052 027456 




X T 20 

EXIT 

TST 


5053 027462 





REGTBL 



5054 027462 





TTBL 

0.0 


027462 

027342 





T20TBL: 

.WORD T20MSG 

027464 

000000 






.WORD 0 

027466 

000000 






.WORD 0 


027470 

027472 

027472 

5055 027474 
027474 
0274/4 
027476 

5056 027500 


177777 

177777 


006644 

177777 


FRUTBL INTONL 


ENDTST 


T20RTB: 


T20FTB: 


.WORD -1 


.WORD -1 


.WORD 

.WORD 


INTONL 

-1 
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G 11 


SEC 156 


HA 

TE 


5059 


027502 000414 
027504 040 120 


5060 

5061 

5062 

5063 
<064 

5065 

5066 

5067 

5068 

5069 

5070 

5071 

5072 

5073 

5074 

5075 

5076 

5077 

5078 

5079 

5080 

5081 

5082 

5083 

5084 

5085 

5086 

5087 


.S0TTL TEST 21 - PRIORITY LVL - LGC TST 

0R 0GNT21 ;BR TO BGN TST 

122 T21MSG: . ASC 1 2 / PRIORITY LVL - LGC TST/ 

.EVEN 


TEST TC VERIFY THAT THE DEVICE PRIORITY IS SET TO THE CORRECT LEVEL. 


0GNTST 

IF LOGIC TEST 
: THEN-SETUP TEST IDENT 

LOWER WATCH DOG TIMEOUT MULTIPLIER 
SETUP PROCESSOR PRIORI TY=6 (PRESET VALUE) 

BGNDO 

r : SET PROCESSOR PRIORITY (PRESET VALUE) 

: SET DEVICE INTERRUPT BIT TO ENABLE INTERRUPT 
: IF INTERRUPT OR ERROR OCCURRED 

: THEN-SET DO LOOP DONE BIT -> FLAGS 
: : ELSE-LOWER SETUP PROCESSOR PRIORITY 

: CLEAR DEVICE INTERRUPT BIT 

: ENDIF 

DOUNTIL DO LOOP DONE BIT SET, PROCESSOR PRI=0 OR NO DONE BIT ESR 
IF SETUP PROCESSOR PRI NOT=DEVJCE PRIORITY 
: THEN-CALL LOGIC TEST ERROR 
ENDIF 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1. INTERFACE 




SEC 13 7 

HI 

TE 


.•SETUP TEST ID TBl-TEST# 21 

; IF TEST MODE=LOGIC TEST 

;B1 T SET. THEN 

.•CALL LOGIC TEST SETUP 

.•CALL PROG INITIALIZE 

.-SET WATCH DOG MULTIPLIERS 

.-SET PROCESSOR PPI=06 (NO INTERRUPTS) 

.-SET PRIORITY TABLE INDEX 

.•CLEAR ERROR NUMBER INDICATOR 

ORT .-SET PROCESSOR PRIORITY TO NEW LEVEL 

.SETUP TEMPI = PROCESSOR PRI 

.-NOW SETUP FOR COMPARE, I.E. ONE PRI LVL HIGHER 

; SE T RX INTERRUPT BIT. AS PROCESSOR PRI LOWERED. INTERRUPTS 

.-CALL WATCH DOG TO WAIT FOR INTERRUPT 

; IF INTERRUPT OR ERROR 

; OCCURRED THEN 

.-SET DO LOOP DONE FLAG 

.a q rn hnitMTII • D • 

•SET INDEX TO NEXT LOWER PROCESSOR PRI 

.•CLEAR DEVICE INTERRUPT BIT 

;DO UNTIL PROCESSOR PRI TABLE ALL DONE 

;OR 

.’DOUNTIL FLAGST DO LOOP DONE FLAG 
.-SET 

;IF INTERRUPT OCCURRED 
; THEN 

;IF FLAGSP-LSI FLAG 
.-NOT SET, THEN 

; IF SETUP PROCESSOR PRIORITY & RX PRIORITY 
;DONT MATCH 

.•SETUP ERR NBR-PRI LEV ERR 
.-CALL ERROR 

.•SETUP INTERRUPT PRI LEV FOR PRT 

.•SETUP RX PRI LEV FOR PRINT 

.•SETUP PRI LEV MSG 

.•PRINT MSG 

;8R TO TEXT EXIT 

.•CALL ERROR 

; RE SET WATCHDOG MULTIPLIER 

AT PRI LEV=X03XNXS6XA INTERRUPTED AT PRI LEV=X03/ 


.WORD T21MSG 
.WORD 0 
.WORD 0 
.WORD -1 

.WORD -1 


.WORD INTONL 
.WORD -1 



SEC 15a 


I 11 
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5135 


030126 

030130 


5136 

5137 

5139 
5V 0 

5141 

5142 

5143 

5144 

5145 

5146 

5147 

5148 

5149 

5150 

5151 

5152 

5153 


5154 

5155 

5156 

5157 

5158 


5159 


5160 


030166 

030166 

030174 

030202 

030204 

030210 

030214 

030220 

030224 

030224 

030224 

030226 

030230 

030232 

030234 

030234 

030236 

030240 

030240 

030240 

030242 

030244 


.SBTTl TEST 22 - INITIALIZE CONTROL - LGC TST 
000417 BR BGNT22 ;3R TO BGN TST 

040 111 116 T22MSG: .ASCIZ / INITIALIZE CONTROL - LGC TST/ 

.EVEN 


TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE INITIALIZE. 


BGNTST 

IF LOGIC TEST 
: THEN-SETUP TEST IDENT 
: ISSUE DEVICE PROGRAMMED INITIALIZE 

CALL ERRCHK 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1. CONTROLLER 

2. INTERFACE 


TSETUP 


012737 

030224 

002466 

BGNT22: 

MOV 

032737 

000001 

002324 

IAT22: 

BIT 

001406 




BEQ 

004737 

020736 



CALL 

004737 

010440 



CALL 

004737 

01 7724 


XT22: 

CALL 

EXIT 

REGTBL 

015046 




TTBL 

030130 

000001 

000004 

177777 





015046 

177777 




FRUTBL 

006646 

177777 






ENDTST 


#T22TBL,TSTID 

■SETUP 

TEST ID TBL-TEST# 22 

#L0GICT.TSTM0D 

•IF TEST MODE -LOGIC TEST 

XT22 

BIT SET. THEN 

LTSTUP 

;CALL 

LOGIC TEST SETUP 

INTIAL 

;CALL 

INITIALIZE 

ERRCHX 

TST 

CEINIT 

: CALL 

ERROR CHECK 

REGS1= 

CEINIT 

REGCK.RGPRT 



T22TBL: 

.WORD 

T22MSG 


.WORD 

REGCK 


.WORD 

RGPRT 


.WORD 

-1 

T22RTB: 

.WORD 

REGS1 


.WORD 

-1 

CTLINF 



T22FTB: 

.WORD 

CTLINF 


.WORD 

-1 


TE 
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TEST 23 - DATA BUF INTEGRITY - LGC TST 


5163 


030246 000417 
030250 040 104 


5 1 64 

5165 

5166 

5167 

5168 

5169 

5170 

5171 

5172 

5173 

5174 

5175 

5176 

5177 

5178 

5179 

5180 

5181 

5182 

5183 

5184 

5185 

5186 

5187 

5188 

5189 

5190 

5191 

5192 

5193 

5194 

5195 

5196 

5197 


.S8TTI TEST 23 - DATA BUF INTEGRITY - LGC TST 
BR BGNT23 ;BR TO BGN TST 

101 T23MSG: .ASCIZ / DATA BUF INTEGRITY - LGC TST/ 
.EVEN 


TFST TO VERIFY ALL BITS OF DATA BUFFER. VARIOUS PATTERNS WILL BE USED. 


BGNTST 

IF LOGIC TEST 
: THEN-SETUP TEST IDENT 
: SETUP RANDOM DATA PATTERN 

: NOP 

BGNDO 

: : CALL DATA PATTERN SETUP 

: : CALL FILL BUFFER 

: IF NO ERROR (ESCAPE TEST) 

: THEN-CALL EMPTY BUFFER 
: : : IF NO ERROR (ESCAPE TEST) 

: : : : THEN-SET EMPTY BUFFER FLAG 

: CALL DATA CHECK 

: ADVANCE PATTERN COUNT 

GET NEW PATTERN # 

: : : IF FOUR PATTERNS DONE 

: : : : : THEN-SET DO LOOP DONE 

: : : ENDIF 

ENDIF 

: ENDIF 

: DOUNTIL DO LOOP DONE FLAG SET 

NOP 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1. CONTROLLER 

2. INTERFACE 



K 11 



SEO 140 


H A 
TE 


SETUP TEST ID TBL-TEST* 23 

IF TEST MODE=LOGIC TEST 

BIT SET. THEN 

CALL LOGIC TEST SETUP 

SET DATA PATTERN = 0‘S 

CALL SET DATA PATTERN 

CALL FILL BUFFER 

IF NO ERROR. THEN 

CALL EMPTY BUFFER 

IF NO ERROR. THEN 

CALL DATA CHECK 

ADVANCE TO NEXT DATA PATTERN 

IF ALL DATA PATTERNS 

DONE. THEN 


SET FLAGST=DO LOOP DONE FLAG 
DOUNTIL FLAGST-DO COOP BONE.FLAG 
IS SET 


RESET DATA PATTERN 


.WORD T23MSG 
.WORD EMBUFF 
.WORD 0 
•WORD -1 

.WORD -1 


WORD CTLINF 
WORD -1 



L 11 


SEC 141 
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TEST 24 - WRD CNT INTEGRITY - LGC TST 


5222 


030450 

030452 


000417 

040 


127 


5223 

5224 

5225 

5226 

5227 

5228 

5229 

5230 

5231 

5232 

5233 

5234 

5235 
523c 

5237 

5238 

5239 

5240 

5241 

5242 

5243 

5244 

5245 

5246 

5247 

5248 

5249 

5250 

5251 

5252 

5253 

5254 

5255 

5256 


.SBTTL TEST 24 - URD CNT INTEGRITY - LGC TST 
BR BGNT24 ;BR TO BGN TST 

122 T24MSG: .ASCIZ / URD CNT INTEGRITY - LGC TST/ 
.EVEN 


TEST TO VERIFY ALL BITS OF WORD COUNT REGISTER AND CHECK THAT EXCEEDING 
THE WORD COUNT FOR DISKETTE DENSITY WILL BE DETECTED. 


BGNTST 

IF LOGIC TEST 
: THEN-SETUP TEST IDENT 
: SET DENSITY CONTROL=DOUBLE 

: SET BUFFER LENGTH=128. 

: BGNDO 

CALL FILL BUFFER 
: IF NO ERROR (ESCAPE TEST) 

: : THEN-CALL READ ERROR CODE 

: : IF NO ERROR (ESCAPE TEST) 

: THEN-IF WORD COUNTS NOT EQUAL 
: : : THEN-SETUP WORD COUNT ERROR 

: : : : CALL ERROR 

: ELSE-UPDATE WORD COUNT 
IF WORD C0UNT=0 

: : : : THEN-SET DO LOOP DONE FLAG 

: : : : ENDIF 

: : : ENDIF 

ENDIF 

: ENDIF 

: DOUNTIL DO LOOP DONE FLAG SET 

NOP 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1. CONTROLLER 


HA 

TE 



n n 
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TEST 24 - URD CNT INTEGRITY - LGC TST 


5259 030510 




BGNT24: 

TSETUP 

030510 

012737 

030670 

002466 

MOV 

030516 

032737 

000001 

002324 

IAT24 : 

BIT 

030524 

001457 




BEQ 

030526 

004737 

020736 

002412 


CALL 

5260 030532 

012737 

000400 


MOV 

5261 030540 

012737 

000200 

002370 

BBT24 : 

MOV 

526? 030546 

004737 

010510 


CALL 

5263 030552 





ESCAPE 

5264 030556 

004737 

011340 



CALL 

5265 030562 




ICT24: 

ESCAPE 

5266 030566 

105737 

002443 


TSTB 

5267 030572 

001420 


002520 


BEQ 

5268 030574 

012737 

000023 


MOV 

5269 030602 

005037 

002440 



CLR 

5270 030606 

113737 

002443 

002440 


MOVB 

5271 030614 

005037 

002436 



CLR 

5272 030620 

004737 

003060 

002476 


CALL 

5273 030624 

052737 

000010 


BIS 

5274 030632 

000410 



LCT24: 

BR 

5275 030634 

005337 

002370 


DEC 

5276 030640 

005737 

002370 


IDT2*: 

TST 

5277 030644 

001003 




BNE 

5278 030646 

052737 

000010 

002476 

UBT24: 

BIS 

5279 030654 

032737 

000010 

002476 

BIT 

5280 030662 

001731 



XT24: 

BEQ 

5281 030664 




EXIT 

5282 030670 





REGTBL 

5283 030670 





TTBL 


030670 030452 
030672 000000 
030674 000004 

030676 177777 
030700 

030700 177777 

5284 030702 FRUTBL 

030702 

030702 006646 
030704 177777 

5285 030706 


#T24TBL.TSTID 

#L0G1CT.TSTM0D 

XT24 

LTSTUP 

ADENBIT.DENSTY 

A128..WDCNT 

FILBUF 

TST 

RDERCD 

TST 

UC 

LCT24 

/XWCERR.ERRNBR 

REGACT 

WC.REGACT 

REGEXP 

FRRHR 

#DLPDN.FLAGST 

UBT24 

UDCNT 

WDCNT 

UBT24 

#DLPDN,FLAGST 
#DLPDN,FLAGST 
BBT 24 
TST 

O.RGPRT 

T24TBL: 


T24RTB: 


CTLINF 


T24FTB: 


ENDTST 


SEC 142 


SETUP TEST ID TBL-TEST# 24 
IF TEST MODE=LOGIC TEST 
BIT SET. THEN 
CALL LOGIC TEST SETUP 
SET DENSITY CONTROL=DOUBLE 
SET WORD C0UNT=128. 

CALL FILL BUFFER 

IF NO ERROR THEN 

CALL READ ERROR CODE 

IF NO ERROR THEN 

IF WORD COUNT 

NOT EQUAL 0. THEN 

SETUP ERR NBR=U0RD COUNT ERROR 

CLEAR REG ACTUAL 

SETUP WORD COUNT ACTUAL 

SETUP WORD COUNT EXPECTED 

CALL ERROR 

SET FLAGSTsDO LOOP DONE FLAG 
BR TO DOUNTIL ’B' 

DECREMENT WORD COUNT 
IF WORD COUNT 
EQUALS ZERO. THEN 


SET FLAGST=DO LOOP DONE. FLAG 
DOUNTIL FLAGST=DO COOP 50NE.FLAG 
SET 


.WORD T24MSG 
.WORD 0 
.WORD RGPRT 
.WORD -1 

.WORD -1 


WORD CTLINF 
WORD -1 



N 11 


SEC 143 
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TEST 25 - CONTROLLER-RE AD*WRITE ELECT - LGC TST 

5288 .SBTTL TEST 25 - CONTROLLER-READ*WRITE ELECT - LGC TST 

030710 000424 BR BGNT25 ;BR TO BGN TST 

030712 040 103 117 T25MSG: .ASCIZ / CONTROLLER-READ ‘WRITE ELECT - LGC TST/ 

.EVEN 


5289 

5290 

5291 

5292 

5293 

5294 

5295 

5296 

5297 

5298 

5299 

5300 

5301 

5302 

5303 

5304 

5305 

5306 

5307 

5308 

5309 

5310 

5311 


*TEST TO VERIFY MINIMAL CONTROLLER BOARD-READ/WRITE ELECTRONICS BOARD 
INTERFACE VIA INITIALIZE OF A SELECTED DRIVE. 


BGNTST 

IF LOGIC TEST 
: THEN-SETUP TEST IDENT 
NOP 

ISSUE PROGRAMMED INITIALfZE 
: CALL ERROR C< 

CALL READ ERROR CODE 
IF NO ERROR (ESCAPE TEST) 

: THEN-CALL ERROR CK 
ENDIF 

: NOP 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1 . CONTROLLER 

2. R/W ELECTRONICS 


HAI 

TE! 



e 12 


SFQ 144 


HARDWARE TESTS 

MACRO Ml 200 14- 

•DEC-9? 

16:33 

PAGE 200 



TEST 25 

- C0NTR0UER-READ*WRITE 

ElEu 

- LGC 

TST 



5315 

030762 





TSETUP 




030762 

012737 

031054 

002466 

BGNT25: MOV 

#T25TBL,TSTID 

SETUP TEST ID TBL-TESM 25 


030770 

032737 

000001 

002324 

IAT25 

: BIT 

ALOGICT.TSTMOD 

IF TEST MODE=LOGIC TEST 


030776 

001424 




BEQ 

XT25 

BIT SET. THEN 


031000 

004737 

020736 



CALL 

LTSTUP 

CALL LOGIC TEST SETUP 

5316 

031004 

004737 

010440 



CALL 

INTIAL 

CALL INITIALIZE 

5317 

031010 

004737 

017724 



CALL 

ERRCHK 

CALL ERROR CHECK 

5318 

031014 

005237 

002470 



INC 

TCMDCT 

INCREMENT TST CMD CTR ***** 

5319 

031020 

052737 

000200 

002500 


BIS 

ARECTST.FLAGSP 

SET READ ERROR CODE TEST=FLAGSP 

5320 

031026 

004737 

011340 



CALL 

RDERCD 

CALL READ ERROR CODE 

5321 

031032 





ESCAPE 

TST 

IF NO ERROR 

5322 

031036 

004737 

017724 



CALL 

ERRCHK 

CALL ERROR CHECK 

5323 

031042 

042737 

000200 

002500 


BIC 

fRECTST.FLAGSP 

CLEAR READ ERROR CODE TEST=FLAGSP 

<324 

031050 




XT25: 

EXIT 

TST 


5325 

031054 





REGTBL 

CEINIT.CSESND 




015046 





REGS1=CEINIT 



015076 





REGS2=CSESND 

5326 

031054 





TTBL 

REGCK.O 



031054 

030712 





T25TBL: 

.WORD T25MSG 


031056 

000001 






.WORD REGCK 


031060 

000000 






.WORD 0 


031062 

177777 






.WORD -1 


031064 






T25RT8: 



031064 

015046 






.WORD REGS1 


031066 

015076 






.WORD REGS2 


031070 

1 777 7 7 






.WORD -1 

532/ 

031072 





FRUTBL 

CTLRWE 



031072 






T25FTB: 



031072 

006651 






.WORD CTLRWE 


031074 

177777 






.WORD -1 

5328 

031076 





ENDTST 




HAI 

TE! 



SEO 145 


HA 

TE 


C 12 
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TEST 26 - READ SECT0R-PRT:1 - LGC TST 


5331 


031100 

031102 


000417 

040 


122 


5332 

5333 

5334 

5335 

5336 

5337 

5338 

5339 

5340 

5341 

5342 

5343 

5344 

5345 

5346 

5347 

5348 

5349 

5350 

5351 

5352 

5353 

5354 

5355 

5356 

5357 

5358 

5359 

5360 

5361 


.S8TTL TEST 26 - READ SECT0R-PRT:1 - LGC TST 
BR BGNT26 ;BR TO BGN TST 

105 T26MSG: .ASCIZ / READ SECT0R-PRT:1 - LGC TST/ 
.EVEN 


TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE A READ SECTOR IN 
BOTH DENSITIES AND RETURN A VALID ERROR CODE. 


BGNTST 

IF LOGIC TEST 

: THEN-SETUP TEST IDENT 

CALL DEVICE DENSITY CK 

: SET DENSITY CONTROL=DISK DEN 

CALL READ SECTOR 
CALL READ ERROR CODE 
IF NO COMMAND ERRORS 
: THEN-CALL ERROR CK 

CALL COMPLIMENT DENSITY 
CALL READ SECTOR 
CALL READ ERROR CODE 
IF NO COMMAND ERRORS 
: THEN-CALL ERROR CK 
ENDIF 

: NOP 

ENDIF 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1 . CONTROLLER 

2. R/U ELECTRONICS 



0 12 
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TEST 26 - READ SEC TOR-PRT : 1 - .GC TST 


5364 031140 

031140 012737 031256 002466 
031146 032737 000001 002324 

031154 001436 
031156 004737 020736 

5365 031162 004737 017350 

5366 031166 004737 020472 

5367 031172 004737 011062 

5368 031176 004737 011340 
5569 031202 

5370 031206 004737 017724 

5371 031212 004737 020430 

5372 031216 052737 004000 002476 

5373 031224 012737 000030 002464 

5374 031232 004737 011062 

5375 031236 004737 011340 

5376 031242 

5377 031246 004737 017724 

5378 031252 

5379 031256 

015036 

5380 031256 

031256 031102 
031260 000001 
031262 000000 
031264 177777 

031266 

031266 015036 
031270 177777 

5381 031272 
031272 

031272 006651 
031274 177777 

5382 031276 



TSETUP 


BGNT26: 

MOV 

#T26TBL,TSTID 

1 A T 26 : 

BIT 

#L0G1CT.TSTM0D 

BEQ 

XT26 


CALL 

LTSTUP 


CALL 

DENCHK 


CALL 

SDENC 


CALL 

READ 


CALL 

RDERCD 


ESCAPE 

TST 


CALL 

ERRCHK 


CALL 

CDfNC 


BIS 

fNEGTST.FLAGST 


MOV 

fDENERR.NGTSER 


CALL 

READ 


CALL 

RDERCD 


ESCAPE 

TST 


CALL 

ERRCHK 

XT26: 

EXIT 

TST 


REGTBL 

CSESAL 


TT8L 

REGCK. 0 

T26TBL 


T26RTB: 


FRUT8L CTLRWE 

T26FTB: 


ENDTST 


SEQ 146 


SETUP TEST ID TBL-TEST# 26 
IF TEST M0DE=L0GIC TEST 
BIT SET. THEN 
CALL LOGIC TEST SETUP 
CALL DENSITY CHECK 

CALL SET DENSITY CONTROL=DENSITY STATUS 
CALL READ SECTOR 
CALL READ ERROR CODE 
IF NO COMMAND ERRORS. THEN 
CALL ERROR CHECK 
CALL COMPLIMENT DENSITY CONTROL 
SET FLAGST=NEG TEST FLAG 
SETUP NEGTEST SET ERROR=DEN ERROR 
CALL READ SECTOR 
CALL READ ERROR CODE 
IF NO COMMAND ERRORS. THEN 
:CALL ERROR CHECK 


REGS1=CSESAL 

.WORD T26MSG 
.WORD REGCK 
.WORD 0 
.WORD -1 

.WORD REGS1 
.WORD -1 


WORD CTLRWE 
WORD -1 
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TEST 27 - POSITIONING - LGC TST 


E 12 


StO 14 7 


S385 


031300 

031302 


000414 

040 


120 


5386 

5387 

5388 

5389 

5390 

5391 

5392 

5393 

5394 

5395 

5396 

5397 

5398 

5399 

5400 

5401 

5402 

5403 

5404 

5405 

5406 

5407 

5408 

5409 

5410 

5411 

5412 

5413 

5414 

5415 


.S9TTL TEST 27 - POSITIONING - LGC TST 

BR BGNT27 ;8R TO BGN TST 

117 T27MSG: .ASCIZ / POSITIONING - LGC TST/ 

.EVEN 

; TEST TO VERIFY THAT THE DRIVE WILL READ THE HEADERS ON ALL TRACKS OF 
; THE DEIVE AS EXPECTED. 


BGNTST 

IF LOGIC TEST 
: THEN-SETUP TEST IDENT 
: SET TRACK INIT FLAG 

: SET SECT0R=10 

BGNDO 

: : CALL GET TRACK 

: : CALL READ ERROR CODE 

: CALL READ SECTOR 
: IF NO COMMAND ERRORS (ESCAPE TST) 

: : THEN-CALL ERROR CHECK 

CALL TRACKS ERROR CK 
: : CLEAR TRACK INIT FLAG 

: : NOP 

: ENDIF 

DOUNTIL TRACKS DONE. ABORT FLAG SET. OR TRACK ERR0RS=10 
: NOP 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1. CONTROLLER 

2. R/U ELECTRONICS 


Hi 

TE 



HARDWARE TESTS 
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•DEC-82 

16:33 
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TEST 27 

- POSITIONING 

- LGC TST 




541 8 

031332 





TSETUP 

#T27TBL,TSTID 

031332 

012737 

031446 

002466 

BGNT27 

: MOV 


031340 

032737 

00C001 

002324 

I A T 27 : 

BIT 

ALOGICT.TSTMOD 


031346 

001435 




BEQ 

XT27 


031350 

004737 

020736 



CALL 

LTSTUP 

5419 

031354 

012737 

000400 

002510 


MOV 

*1 TK ! RTK.TKSCFG 

5420 

031362 

004737 

017350 



CALL 

DENCHK 

5421 

031366 

004737 

020472 



CALL 

SDENC 

5422 

031372 

012737 

000010 

002376 


MOV 

#10, SECTOR 

5423 

031400 

004737 

012662 


BBT27: 

CALL 

GET TRK 

5424 

031404 

004737 

011062 



CALL 

READ 

5425 

031410 

004737 

011340 



CALL 

RDERCD 

5426 

031414 





ESCAPE 

TST 

5427 

031420 

004737 

017516 



CALL 

TKERCK 

5428 

031424 

042737 

000400 

002510 


BIC 

#1 TK.TKSCFG 

5429 

031432 

032737 

001000 

002476 

UBT27: 

BIT 

#TRKD0N,FLAGST 

5430 

031440 

001757 



XT27: 

BEQ 

B8T27 

5431 

031442 




EXIT 

TST 

5432 

031446 

015036 




REGTBL 

CSFSAL 

5433 

031446 





TTBL 

REGCK.O 


031446 

031302 





T27TBL: 


031450 

000001 







031452 

000000 







031454 

177777 





T27RTB: 


031456 

031456 

015036 






5434 

031460 

031462 

177777 




FRUTBL 

CTLRUE 

031462 

031462 

006651 





T27FTB: 



031464 

177777 






5435 

031466 





ENDTST 



SETUP TEST ID TBL-TEST# 27 

IF TEST MODE=LOGIC TEST 

BIT SET. THEN 

CALL LOGIC TEST SETUP 

SET TRK/SEC FLAG— >TRACK=INI7 & RANDOM 

CALL DENSITY CHECK 

CALL SET DENSITY CONTROL=DENSI TY STATUS 

SET SECT0R=10 

CALL GET TRACK 

CALL READ SECTOR 

CALL READ ERROR CODE 

IF NO COMMAND ERRORS. THEN 

CALL TRACK ERROR CHECK 

CLEAR INT TRK FLAG 

DO UNTIL FLAGST-TRACK DONE FLAG 


.'SET, 


REGS1= 

CSESAL 

.WORD 

T27MSG 

.WORD 

REGCK 

.WORD 

0 

.WORD 

-1 

.WORD 

REGS1 

.WORD 

-1 

.WORD 

CTLRUE 

.WORD 

-1 
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TEST 28 - WRITE SECTOR-PRT : 1 - LGt T ST 

5438 .SBTTl TEST 28 - WRITE SECTOR-PRT : 1 - L GC T S T 

031470 000417 BR 8GNT28 ;8R TO BGN TST 

031472 040 127 122 T28MSG: .ASCI2 / WRITE SECT0R-PRT:1 - IGC TST/ 

.EVEN 


5439 

5440 

5441 

5442 

5443 

5444 

5445 

5446 

5447 

5448 

5449 

5450 

5451 

5452 

5453 

5454 

5455 

5456 

5457 

5458 

5459 

5460 

5461 

5462 

5463 

5464 

5465 

5466 

5467 


*TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE A WRITE SECTOR IN 
BOTH DENSITIES AND RETURN A VALID ERROR CODE. 


BGNTST 

IF LOGIC TEST 
: THEN-SETUP TEST IDENT 

CALL DEVICE DENSITY CHECK 
: SET DENSITY CONTROL=DISK DEN 

: CALL WRITE SECTOR 

IF NO COMMAND ERROR (ESCAPE TEST) 

: THEN-CALL ERROR CHECK 

CALL COMPLIMENT DENSITY CONTROL 

CALL WRITE SECTOR 

IF NO COMMAND ERROR (ESCAPE TEST) 

: THEN-CALL ERROR CHECK 

ENDIF 

NOP 

ENDIF 

NOP 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1 . CONTROLLER 

2. R/W ELECTRONICS 



H 12 


SEC ISO 


HARDWARE TESTS 

MACRO M1200 14 

-DEC-82 

16:33 

PAGE 209 



TEST 28 

- WRITE SECTOR 

-PRT : 1 - 

LGC TST 





5470 

031530 





TSETUP 




031530 

012737 

031642 

002466 

BGNT28 

: MOV 

ATT28TBL , TST ID 

SETUP TEST ID TBL-TEST# 28 


031536 

032737 

000001 

002324 

IAT28: 

BIT 

#LOGICT , TSTMOD 

IF TEST MODE=LOGIC TEST 


031544 

001434 




BEQ 

XT28 

BIT SET. THEN 


031546 

004737 

020736 



CALL 

LTSTUP 

CALL LOGIC TEST SETUP 

5471 

031552 

004737 

017350 



CALL 

DENCHK 

CALL DENSITY CHECK 

5472 

031556 

004737 

020472 



CALL 

SDENC 

CALL SET DENSITY CONTROL=DENSI TY STATUS 

5473 

031562 

004737 

010744 



CALL 

WRITE 

CALL WRITE SECTOR 

5474 

031566 





ESCAPE 

TST 

IF NO COMMAND ERROR. THEN 

5475 

031572 

004737 

017724 



CALL 

ERRCHK 

CALL ERROR CHECK 

5476 

031576 

C04737 

020430 



CALL 

CDENC 

CALL COMPLIMENT DENSITY CONTROL 

5477 

031602 

052737 

004000 

002476 


BIS 

#NEGTST.f LAGST 

SET FLAGST-NEG TEST FLAG 

5478 

031610 

012737 

000030 

002464 


MOV 

ADtNERR.NGTSER 

SETUP NEG TEST ERR ERR=DENSITY ERR 

5479 

031616 

004737 

010744 



CALL 

WRITE 

CALL WRITE 

5480 

031622 

004737 

011340 



CALL 

RDERCD 

CALL READ ERROR CODE 

5481 

031626 





ESCAPE 

TST 

IF NO COMMAND ERROR 

5482 

031632 

004737 

017724 



CALL 

ERRCHK 

CALL ERROR CHECK 

5483 

031636 




XT28: 

EXIT 

TST 


5484 

031642 





REGTBL 

CSESAL 




015036 





REGS1=CSESAL 

5485 

031642 





TT8L 

REGCK.O 



031642 

031472 





T28TBL: 

.WORD T28MSG 


031644 

000001 






.WORD REGCK 


031646 

000000 






.WORD 0 


031650 

177777 






.WORD -1 


031652 






T28RTB: 



031652 

015036 






.WORD REGS1 


031654 

177777 






.WORD -1 

5486 

031656 





FRUTBL 

CTLRWE 



031656 






T28FTB: 



031656 

006651 



V 



.WORD CTLRWE 


031660 

177777 






.WORD -1 

5487 

031662 





ENDTST 




HA 
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TEST 29 - DELETED DATA WRITE PRT : 1 - LGC T ST 


5490 


031664 000422 

031666 040 104 105 


.SBTTL TEST 29 - DELETED DATA WRITE PRT : 1 - LGC TST 
8R BGNT29 ;BR TO BGN TST 

T29MSG: .ASCIZ / DELETED DATA WRITE PRT : 1 - LCC TST/ 
.EVEN 


5491 

5492 

5493 

5494 

5495 

5496 

5497 

5498 

5499 

5500 

5501 

5502 

5503 

5504 

5505 

5506 

5507 

5508 

5509 

5510 

5511 

5512 

5513 

5514 

5515 

5516 

5517 

5518 

5519 


*TEST TO VERIFY THAT THE DEVICE SET A DELETED DATA MARK ON THE DISKETTE 
HEADER AND RETRIEVE THIS DATA ON A KNOWN GOOD DISKETTE. 


BGNTST 

IF LOGIC TEST 
: THEN-SETUP TEST IDENT 

CALL DEVICE DENSITY CK 

SET DENSITY CONTROL=DENSITY STATUS 

SET DELETED DATA FLAG (BIT#3-CMD) 

CALL WRITE SECTOR 

IF NO COMMAND ERROR (ESCAPE TEST) 

: THEN-CALL READ SECTOR 

IF NO COMMAND ERROR (ESCAPE TEST) 

: THEN-IF RXESR-DELETED DATA BIT NOT SET 
: : : : THEN-SET ERROR NUMBER=DELE TED DATA ERR 

: : : : CALL ERROR 

: ENDIF 

: ENDIF 

ENDIF 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1 . CONTROLLER 

2. R/W ELECTRONICS 
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J 12 



032072 006651 
032074 177777 

5542 032076 


ENDTST 


SEG 152 


HA 

TE 1 


SETUP TEST ID TBL-TEST* 29 

IF TEST MODE=LOGIC TEST 

BIT SET, THEN 

CALL LOGIC TEST SETUP 

CALL DEVICE DENSITY CHECK 

CALL SET DENSITY CONTROL=DENSI TY STATUS 

SET DELETED DATA FLAG 

CALL WRITE SECTOR 

IF NO COMMAND ERROR. THEN 

CALL ERROR CHECK 

CALL READ SECTOR 

IF NO COMMAND ERROR, THEN 

IF RXESR-DELETED DATA BIT 

NOT SET. THEN 

SETUP ERROR NUMBER=DELETED DATA ERROR 
CALL ERROR 
EXIT TST 

CLEAR DEL DATA MODE 

CALL WRITE SECTOR - CLR DATA FIELD 


REGS1=C$ESAL 

.WORD T29MSG 
.WORD REGCK 
.WORD 0 
.WORD -1 

.WORD REGS1 
.WORD -1 


.WORD CTLRWE 
.WORD -1 
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5545 


032100 000414 
032102 040 123 


5546 

5547 

5548 

5549 

5550 

5551 

5552 

5553 

5554 

5555 

5556 

5557 

5558 

5559 

5560 

5561 

5562 

5563 

5564 

5565 

5566 

5567 

5568 

5569 

5570 

5571 

5572 

5573 

5574 

5575 

5576 

5577 
55/8 

5579 

5580 

5581 

5582 

5583 

5584 

5585 

5586 

5587 

5588 

5589 

5590 

5591 


.SBTTL TEST 30 - SET DENSITY * LGC TST 

BR BGNT30 ;BR TO BGN TST 

105 T30MSG: .ASCIZ / SET DENSITY - LGC TST/ 

.EVEN 

;*TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE SET DENSITY IN BOTH 
; DENSITIES. THE VALID WORD WILL ALSO BE CHECKED. ALSO TO VERIFY THAT 
; THE DRIVE WILL READ IN THE NEW DENSITY WITHOUT ERROR. 


BGNTST 

IF LOGIC TEST 
: THEN-SETUP TEST I DENT 

CALL DEVICE DENSITY CHECK 
: SAVE DEVICE DENSITY 

SET DENSITY CONTROL=SINGLE DEN 

CALL SE1 DENSITY 

IF NO COMMAND ERROR (ESCAPE TST) 

: THEN-CALL ERROR CHECK 

SET VALIDITY WORD=ASCII 'V 

CALL SET DENSITY 

CALL READ ERROR CODE 

IF NO COMMAND ERROR (ESCAPE TST) 

: THEN-SET FLAGST NEG TEST FLAG 

SETUP EXPECTED ERR=S.D. KEY WD ERR 
CALL ERROR CHECK 

: SET DENSITY CONTROL ^DOUBLE DENSITY 

: SET VALIDITY WORD=ASCII 'I* 

CALL SET DENSITY 

IF NO COMMAND ERROR (ESCAPE TST) 

: THEN-CALL ERROR CHECK 
: CALL DEVICE DENSITY CHECK 

IF DEVICE DENSITY NOT=SET DENSITY 

: : : : : THEN-SET ERR MSG=DENSITY NOT SET 

: : : : : CALL ERROR CHECK 

: : : : ENDIF 

: : IF SAVED DEVICE DENSITY=DOUBLE DENSITY 

: : : : : THEN-SET DENSITY CONTROL=SINGLE DEN 

: : : : ENDIF 

: : : ENDIF 

: ENDIF 

ENDIF 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1. CONTROLLER 

2. R/W ELECTRONICS 




SEC 154 


HA 
' Tl 


SETUP TEST ID T0L-TES T # 30 

IF TEST MODE=LOGIC TEST 

BIT SET. THEN 

CALL LOGIC TEST SETUP 

CALL DENSITY CHECK 

SAVE DEVICE DENSITY 

SET DENSITY C0NTR0L=SINGLE DENSITY 

CALL SET DENSITY 

IF NO COMMAND ERROR. THEN 

CALL ERROR CHECK 

SET VALIDITY UORD=ASCII "K" 

CALL SET DENSITY 

CALL READ ERROR CODE 

IF NO COMMAND ERRUrt 

SET FLAGST-NEG TEST FLAG 

SETUP EXPECTED ERROR=SCT DEN KEYWORD ERROR 

CALL ERROR CHECK 

SET DENSITY CONTROL=DOUBLE DENSITY 
SET VALIDITY WORD=ASCII "I" 

CLEAR FLAGST-NEG TEST FLAG 

CALL SET DENSITY 

IF NO COMMAND ERROR, THEN 

CALL ERROR CHECK 

CALL DENSITY CHECK 

IF DENSITY DID 

NOT SET, THEN 

SET ERROR NBR=DENSITY DIDN'T SET ERROR 

CALL ERROR 

IF SAVED DENSITY 

EQUALS DOUBLE DEN, THEN 

SET DENSITY CONTROL=S INGLE DEN 

CALL SET DENSITY 


REGS1=CSESAL 

.WORD T30MSG 
.WORD REGCK 
.WORD 0 
.WORD -1 

.WORD REGS1 
.WORD -1 


WORD CTLRWE 
WORD -1 
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M 12 


SEC 155 


5630 

032400 000413 
032402 040 


5631 

5632 

5633 

5634 

5635 

5636 

5637 

5638 

5639 

5640 

5641 

5642 

5643 

5644 

5645 

5646 

5647 

5648 

5649 

5650 

5651 

5652 

5653 

5654 

5655 

5656 

5657 

5658 

5659 

5660 

5661 

5662 

5663 

5664 

5665 

5666 

5667 

5668 

5669 

5670 

5671 
56?2 

5673 

5674 

5675 

5676 


.S8TTL TEST 31 - SECTOR ADR - LGC TST 

BR BGNT31 ;BR TO BGN TST 

123 105 T31MSG: .ASCJZ / SECTOR ADR - LGC TST/ 

.EVEN 


TEST TO VERIFY THAT THE CONTROLLER WILL HANDLE ALL LEGAL AND ILLEGAL 
SECTOR ADDRESSES PROPERLY. 


BGNTST 

IF LOGIC TEST 
: THEN-SETUP TEST IDENT 
SET TRACK ADR=0 
: SET SECTOR LEGAL FALG 

SET SECTOR INIT 
BGNDO 

: CALL GET SECTOR ADR 
: CALL READ SECTOR 
: CALL READ ERROR CODE 
: IF F INI FLAG NOT SET 
: : THEN- 

IF SECTOR ADR NOT=TARGET SECTOR ADR 
: : : THEN-SETUP TO PRINT ERROR 

: : CALL ERROR 

: : : ELSE-CALL ERROR CK 

: ENDIF 

: ENDIF 

DOUNTIL SECTORS DONE FLAG SET OR ABORT FLAG SET 

CLEAR SECTORS DONE FLAG 

SET DONE TIME OUT MULTIPLIERS 00 

SET NEG TEST FLAG 

BGNDO 

: CALL READ SECTOR 
: CALL READ ERROR CODE 
: : IF F INI FLAG NOT SET 

: : THEN-IF SECTOR ADR NOTSARGET SECTOR ADR 

: : : THEN-SET ERR=SECTOR ADR ERROR 

: : CALL ERROR 

: ELSE-CALL ERROR CHECK 
ENDIF 

: ENDIF 

DOUNTIL SECTORS DONE FLAG SET OR F1NI FLAG SET 
: NOP 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1. CONTROLLER 



N 12 
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5679 032430 




BGNT31 : 

TSETUP 

032430 

012737 

032730 

002466 

MOV 

032436 

032737 

000001 

002324 

I AT 3 1 : 

BIT 

032444 

001527 




BEQ 

032446 

004737 

020736 



CALL 

5680 032452 

004737 

010440 



CALL 

5681 032456 

004737 

017350 



CALL 

5682 032462 

004737 

020472 



CALL 

5683 032466 

012737 

001002 

002510 

BBT31: 

MOV 

5684 032474 

004737 

013104 


CALL 

5685 032500 

004737 

011062 



CALL 

5686 032504 

004737 

011340 


ICT31: 

CALL 

5687 032510 

005737 

002454 


TST 

5688 032514 

0C1024 



IDT31: 

BNE 

5689 032516 

123737 

002376 

002447 

CMPB 

5690 032524 

001416 




BEQ 

5691 032526 

012737 

000042 

002520 


MOV 

5692 032534 

052737 

000002 

002500 


BIS 

5693 032542 

004737 

003060 



CALL 

5694 032546 

042737 

000002 

002500 


BIC 

5695 032554 

004737 

010440 



CALL 

5696 032560 

000402 



LDT31: 

BR 

5697 032562 

004737 

017724 


CALL 

5698 032566 

005737 

002452 


UBT31 : 

TST 

5699 032572 

001004 




BNE 

5700 032574 

032737 

002000 

002476 


BIT 

5701 032602 

001734 


002476 

EBT31 : 

BEQ 

5702 032604 

042737 

002000 

BIC 

5703 032612 

052737 

004000 

002476 


BIS 

5704 032620 

012737 

000003 

002464 


MOV 

5705 032626 

012737 

000100 

002474 


MOV 

5706 032634 

012737 

000000 

002376 

BET31: 

MOV 

5707 032642 

004737 

011062 


CALL 

5708 032646 

004737 

011340 



CALL 

5709 032652 

005737 

002454 


IFT31: 

TST 

5710 032656 

001017 




BNE 

5711 032660 

123737 

002376 

002447 

IGT31 : 

CMPB 

5712 032666 

001411 




BEQ 

5713 032670 

052737 

000002 

002500 


BIS 

5714 032676 

012737 

000042 

002520 


MOV 

5715 032704 

004737 

003060 



CALL 

5716 032710 

000402 



LGT31: 

BR 

5717 032712 

004737 

017724 


CALL 

5718 032716 

012737 

000004 

002474 

EFT31 : 

MOV 

5719 032724 

5720 032730 




XT31: 

EXIT 

REGTBL 

015036 





5721 032730 





TTBL 


032730 032402 
032732 000001 
032734 000000 

032736 177777 
032740 

032740 015036 
032742 177777 

5722 032744 FRUT8L 

032744 


#T31 TBL.TSTID 

#LOGICT,TSTMOD 

XT31 

LTSTUP 

INTI AL 

DENCH* 

SDENC 

#ISC!SSC,TKSCFG 

GETSEC 

READ 

RDERCD 

FIN 

UBT31 

SECTOR. TSEC 
LDT31 

#SECAER,ERRNBR 

#SCPRT,FLAGSP 

ERROR 

#SCPRT,FLAGSP 

INTI AL 

UBT31 

ERRCHK 

ABORT 

EBT31 

fSECDON.FLAGST 

BBT31 

#SECDON,FLAGST 

#NEGTST.FLAGST 

#RDERR.NGTSER 

AT100.DNWTMT 

#0, SECTOR 

READ 

RDERCD 


SECTOR. TSEC 
LGT31 

fSCPRT.FLAGSP 

#SECAER,ERRNBR 

ERROR 

EFT31 

ERRCHK 

#4.DNWTMT 

TST 

CSESAL 


REGCK.O 


T31TBL: 


T31RTB: 


CTLRWE 

T31FTB: 


SEO 156 


SETUP TEST ID TBL-TEST# 31 
IF TEST MODE=LOGiC TEST 
BIT SET. THEN 
CALL LOGIC TEST SETUP 
CALL INITAILIZE 
CALL DENSITY CHECK 

CALL SET DENSITY CONTROL=DENSITY STATUS 

SETUP SECTOR FLAGS=INIT IALIZE 8 SEQUENCE 

CALL GET SECTOR 

CALL READ SECTOR 

CALL READ ERROR CODE 

IF F INI FLAG 

NOT SET. THEN 

IF SECTOR ADR 8 DEVICE TARGET SECTOR 
NOT =. THEN 

SETUP ERR NBR=SECTOR ADDRESS ERROR 
SET FLAGSP=-PRINT SECTOR ADDRESS FLAG 
CALL ERROR 

CLEAR FLAGSP-PRINT SECTOR ADDRESS FLAG 
CALL INITAILIZE 
BR TO DOUNTIL 'B' 

CALL ERROR CHFCK 
DOUNTIL ABORT FLAG 
SET OR 

FLAGST-SECTOR DONE FLAG 
SET 

CLEAR FLAGSMECTOR DONE FLAG 
SET FLAGST-NEG TEST FLAG 

SETUP EXPECTED ERROR=READ ERROR (SECTOR NOT FOUND EC=70> 

SET DONE WAIT MULTIPLIER SO NO TIME OUT 

SET SECTOR ADR=0 

CALL READ SECTOR 

CALL READ ERROR CODE 

IF FINI FLAG 

NOT SET, THEN 

IF SECTOR ADR AND TARGET SECTOR 
NO i EQUAL, THEN 

SET FLAGSP=-PRINT SECTOR ADDRESS FLAG 
SETUP ERR N8R=SECT0R ADDRESS ERROR 
CALL ERROR 
CALL TO END 'G* 

CALL ERROR CHECK 

RESET DONE WAIT MUTIPLIER TO NORMAL 


REGS1=CSESAL 

.WORD T31MSG 
.WORD REGCK 
.WORD 0 
.WORD -1 

.WORD REGS1 
.WORD -1 
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032744 006651 
032746 177777 
5723 032750 


ENDTST 


WORD 

WORD 


CTLRUE 

-1 
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SEQ 158 


D A 

SO 


C 13 


5726 


032752 

032754 


000413 

040 


124 


5727 

5728 

5729 

5730 

5731 

5732 

5733 

5734 

5735 

5736 

5737 

5738 

5739 

5740 

5741 

5742 

5743 

5744 

5745 

5746 

5747 

5748 

5749 

5750 

5751 

5752 

5753 

5754 

5755 

5756 

5757 

5758 

5759 

5760 

5761 

5762 

5763 

5764 

5765 

5766 

5767 

5768 

5769 

5770 

5771 

5772 

5773 

5774 

5775 


.SBTTL TEST 32 - TRACK ADR - LGC TST 

6R BGNT32 ;BR TO BGN TST 

122 T32MSG: .ASCIZ / TRACK ADR - LGC TST/ 

.EVEN 


TEST TO VERIFY THAT THE CONTROLLER WILL HANDLE ALL LEGAL AND ILLEGAL 
TRACK ADDRESSES PROPERLY. 


BGNTST 

IF LOGIC TEST 
: THEN-SETUP TEST IDENT 

SET TRACK INIT & SEQUENCE FLAGS 
: BGNDO 

: BGNDO 

: : : CALL GET TRACK ADR 

: : CLEAR TRACK INIT FLAG 

: : CALL READ SECTOR 

: : CALL READ ERROR CODE 

: : : IF FINI FLAG NOT SET 

: : : THEN- 

: : : IF TRACK ADR NOT=TARGET TRACK ADR 

: : : : : THEN-CALL LOGIC TEST ERROR 

: : : ENDIF 

: : : : IF ILLEGAL FLAG NOT SET 

: : : : THEN-IF TRACK ADR NOT=UNIT TRACK ADR 

: : : : : : THEN-SETUP TRACK ADR ERR 6 CALL ERROR 

: : : : : ELSE— I F ERROR CODE =40 

: : : : : : THEN-CALL LOGIC TEST ERROR 

: : : : : : ENDIF 

: : : : : ENDIF 

: : : : ELSE— I F TRACK ADR=UNIT TRACK ADR 

: : : : : : THEN-SETUP TRACK ADR ERR & CALL ERROR 

: : : : : : ELSE— I F ERROR CODE NOT=40 

: : : : : : THEN-CALL LOGIC TEST ERROR 

: : : : : : ENDIF 

: : : : : ENDIF 

: : : : ENDIF 

: : ENDIF 

: DOUNTIL TRACKS DONE FLAG SET OR ABORT FLAG SET 
: SET TRACK INIT FLAG 
: : IF TRACKS LEGAL FLAG SET 

: : : THEN-SET TRACKS ILLEGAL FLAG 

: : ELSE-SET TRACKS LEGAL FLAG 

: : ENDIF 

: DOUNTIL TRACKS LEGAL FLAG SET 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1. CONTROLLER 





D 13 
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5/78 033002 





TSETUP 

#T32TBL,TSTID 

033002 

012737 

033336 

002466 

BGNT32: 

MOV 

033010 

032737 

000001 

002324 

I AT 32 : 

BIT 

fLOGICT.TSTMOD 

033016 

001545 




BEO 

XT32 

033020 

004737 

020736 



CALL 

LTSTUP 

5779 033024 

004737 

017350 



CALL 

DENCHK 

5780 033030 

004737 

020472 



CALL 

SDENC 

5781 033034 

012737 

000401 

002510 


MOV 

#ITK!STK,TKSCFG 

5782 033042 

000240 



BBT32: 

NOP 


5783 033044 

004737 

012662 


BCT32: 

CALL 

GETTRK 

5784 033050 

042737 

000401 

002510 


BIC 

#ITK!STK,TKSCFG 

5785 033056 

004737 

011062 



CALL 

READ 

5786 033062 

004737 

011340 



CALL 

RDERCD 

5787 033066 

005737 

002454 


IDT 32 : 

TST 

FIN 

5788 033072 

001062 




BNE 

UCT32 

5789 033074 

123737 

002374 

002446 

IET32: 

CMPB 

TRACK. TTRK 

5790 033102 

001405 




BEQ 

EET32 

5791 033104 

012737 

000041 

002520 


MOV 

fTRKAER.ERRNBR 

5792 033112 

004737 

003060 



CALL 

ERROR 

5793 033116 

013705 

002420 


EET32: 

MOV 

DRVOFF ,R5 

5794 033122 

032737 

010000 

002476 

IFT32: 

BIT 

♦ILLGAL.FLAGST 

5795 033130 

001024 




BNE 

IIT32 

5796 033132 

123765 

002374 

002444 

IGT32: 

CMPB 

TRACK. CTK0LR5) 

5797 033140 

001406 




BEQ 

IHT32 

5798 033142 

012737 

000041 

002520 


MOV 

fTRKAER.ERRNBR 

5799 033150 

004737 

003060 



CALL 

ERROR 

5800 033154 

000431 




BR 

UCT32 

5801 033156 

122737 

000040 

002442 

IHT32: 

CMPB 

A40.XERUUT 

UCT32 

5802 033164 

001025 




BNE 

5803 033166 

012737 

000021 

002520 


MOV 

fRECERR.ERRNBR 

5804 033174 

004737 

003060 



CALL 

ERROR 

5805 033200 

000417 




BR 

UCT32 

5806 033202 

123765 

002374 

002444 

IIT32: 

CMPB 

TRACK, CTK0LR5) 

5807 033210 

001004 




BNE 

IJT32 

5808 033212 

012737 

000041 

002520 


MOV 

atrkaer.errnbr 

5809 033220 

000407 



IJT32: 

BR 

UCT32 

5810 033222 

122737 

000040 

002442 

CMPB 

#40,XERUUT 

UCT32 

5811 033230 

001403 




BEQ 

5812 033232 

012737 

000021 

002520 


MOV 

ARECERR.ERRNBR 

5813 033240 

005737 

002454 


UCT32: 

TST 

FIN 

5814 033244 

001004 




BNE 

ECT32 

5815 033246 

032737 

001000 

002476 


BIT 

fTRKDON.FLAGST 

5816 033254 

001673 




SEQ 

BCT32 

5817 033256 

042737 

001000 

002476 

ECT32: 

BIC 

fTRKDON.FLAGST 

5818 033264 

005037 

002510 



CLR 

TKSCFG 

5819 033270 

052737 

000004 

002510 


BIS 

fILTK.TKSCFG 

5820 033276 

032737 

010000 

002476 

IKT32: 

BIT 

fILLGAL.FLAGST 

5821 033304 

001004 




BNE 

LKT32 

5822 033306 

052737 

010000 

002476 


BIS 

fILLGAL.FLAGST 

5823 033314 

000403 




BR 

UBT32 

5824 033316 

042737 

010000 

002476 

LKT32: 

BIC 

fILLGAL.FLAGST 

5825 033324 

032737 

010000 

002476 

UBT32: 

BIT 

fILLGAL.FLAGST 

5826 033332 




XT 32: 

EXIT 

TST 

5827 033336 





REGTBL 


5828 033336 





TTBL 

0,0 

033336 

032754 





T32TBL: 


033340 000000 


SEQ 159 


PA 

SO 


SETUP TEST ID TBL-TEST# 32 
IF TEST M0DE=L0GIC TEST 
BIT SET, THEN 
CALL LOGIC TEST SETUP 
CALL DENSITY CHECK 

CALL SET DENSITY CONTROL=DENSITY STATUS 

SET INITIALIZE ft SEQUENCE TRACKS FLAG (TRACK/SECTOR FLAGS) 

CALL GET TRACK ADR 

CLEAR INITIALIZE TRACKS FLAG 

CALL READ SECTOR 

CALL READ ERROR CODE 

IF F INI FLAG 

NOT SET, THEN 

IF TRACK ADR l TARGET TRACK 
NOT EQUAL, THEN 

SETUP ERR NBR=TRACK ADDRESS ERROR 
CALL ERROR 

SET R5=DRIVE BYTE OFFSET 
IF ILLEGAL FLAG 
NOT C ET THEN 

IF TRACK ADR g CURRENT TRACK OF SELECTED DRV (R5) 

NOT EQUAL, THEN 

SETUP ERR NBR=TRACK ADDRESS ERROR 
CALL ERROR 
BR TO DOUNTIL , C* 

IF ERR CODE 
SET=40, THEN 

SETUP ERRNBR=READ ERR CODE-ERR URG 
CALL ERROR 
BR TO DOUNTIL 'C* 

IF TRACK ADR g CURRENT TRACK OF SELECTED DRV (R5> 

EQUAL, THEN 

SETUP ERR NBR=TRACK ADR ERROR 
BR TO DOUNTIL *C* 

IF ERR CODE NOT 
SET=40 

SETUP ERR NBR=READ ERR CODE-ERR URG 
DOUNTIL FINI FLAG 
SET OR 

TRACKS DONE FLAG 
SET 

CLEAR TRACKS DONE FLAG 

CLR TRACK FLAGS 

SETUP ILLEGAL TRACKS FLAG 

IF ILLEGAL FLAG 

NOT SET, THEN 

SET ILLEGAL FLAG 

BR TO DOUNTIL 'C* 

CLEAR ILLEGAL FLAG 
DOUNTIL ILLEGAL FLAG CLEAR 


.WORD T32MSG 
.WORD 0 
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033342 

000000 



.WORD 

0 


033344 

053346 

177777 


T32R1B: 

.WORD 

-1 


033346 

177777 


.WORD 

-1 

5829 

033350 

033350 

033350 

006654 

FRUTBL CTLONL 

T32FTB: 

.WORD 

CTLONL 


033352 

177777 



.WORD 

-1 

5830 

033354 


ENDTST 
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5833 .SBTTL TEST 33 - READ SECTOR-PRT:2 - LGC T ST 

033356 000417 BR BGNT33 ;8R TO BGN TST 

033360 040 122 105 T33MSG: .ASCIZ / READ SECT0R-PRT:2 * LGC TST/ 

.EVEN 


5834 

5835 

5836 

5837 

5838 

5839 

5840 

5841 

5842 

5843 

5844 

5845 

5846 

5847 

5848 

5849 

5850 

5851 

5852 

5853 

5854 

5855 

5856 

5857 

5858 

5859 

5860 

5861 

5862 

5863 

5864 


♦ ♦ 

TEST TO VERIFY THAT THE CONTROLLER WILL COMPLETE A READ SECTOR IN 
BOTH DENSITIES & RETURN A VALID ERROR CODE. SIMILAR TO 
READ SECTOR PRT:1. BUT WITH DISKETTE IN OPPOSITE DENSITY. 


BGNTST 

IF LOGIC TEST 

: THEN-SETUP TEST IDENT 

CALL DEVICE DENSITY CK 
SET DENSITY CONTROL=DISK DEN 
CALL READ SECTOR 
CALL READ ERROR CODE 
IF NO COMMAND ERRORS 
: THEN-CALL ERROR CK 

CALL COMPLIMENT DENSITY 
CALL READ SECTOR 
CALL READ ERROR CODE 
IF NO COMMAND ERRORS 
: THEN-CALL ERROR CK 
ENDIF 

NOP 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1. CONTROLLER 

2. R/W ELECTRONICS 


G 13 
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TEST 53 

- READ 

SECTOR- 

■PRT : 2 - 

LGC TST 




5867 

033416 





TSETUP 

#T33TBL.TSTID 


033416 

012737 

033534 

002466 

BGNT33 

: MOV 


033424 

032737 

000001 

002324 

IAT33: 

BIT 

alogict.tstmod 


033432 

001436 




BEG 

XT33 


033434 

004737 

020736 



CALL 

LTSTUP 

5 Q 68 

033440 

004737 

017350 



CALL 

DENCHK 

5869 

033444 

004737 

020472 



CALL 

SDENC 

5870 

033450 

004737 

011062 



CALL 

READ 

5871 

033454 

004737 

011340 



CALL 

RDERCD 

58 72 

033460 





ESCAPE 

TST 

5873 

033464 

004737 

017724 



CALL 

ERRCHK 

5874 

033470 

004737 

020430 



CALL 

CDENC 

5875 

033474 

052737 

004000 

002476 


BIS 

anegtst.flagst 

5876 

033502 

012737 

000030 

002464 


MOV 

ADENERR.NGTSER 

5877 

033510 

004737 

011062 



CALL 

READ 

5878 

033514 

004737 

011340 



CALL 

RDERCD 

5879 033520 





ESCAPE 

TST 

5880 

033524 

004737 

017724 



CALL 

ERRCHK 

5881 

033530 




XT33: 

EXIT 

TST 

5882 

033534 

015036 




REGTBL 

CSESAL 

5883 

033534 





TT8L 

REGCK. 0 


033534 

033360 





T33TBL: 


033536 

000001 







033540 

000000 







033542 

033544 

177777 





T33RTB: 


033544 

015036 







033546 

177777 






5884 

033550 





FRUTBL 

CTLRWE 


033550 

033550 

006651 





T33FTB: 


033552 

177777 







5885 

5886 033554 


ENDTST 


SEC 162 


PA 

5 / 


SETUP TEST ID TBl-TEST# 33 
IF TEST M0DE=L0GIC TEST 
BIT SET. THEN 
CALL LOGIC TEST SETUP 
CALL DENSITY CHECK 

CALL SET DENSITY CONTROL-DENSITY STATUS 

CALL READ SECTOR 

CALL READ ERROR CODE 

IF NO COMMAND ERRORS. THEN 

CALL ERROR CHECK 

CALL COMPLIMENT DENSITY CONTROL 

SET FLAGST=NEG TEST FLAG 

SETUP NEGTEST SET ERROR=DEN ERROR 

CALL READ SECTOR 

CALL READ ERROR CODE 

IF NO COMMAND ERRORS. THEN 

CALL ERROR CHECK 


REGS1-CSESAL 

.WORD T33MSG 
.WORD REGCK 
.WORD 0 
.WORD -1 

.WORD REGS1 
.WORD -1 


.WORD CTLRWE 
.WORD -1 


IB 
IB 
IB 
IB 
IB 
IB 
IB 
IB 
IB 
16 
IB 
IB 
16 
IB 
IB 
IB 
IB 
' IB 
IB 
IB 
IB 
16 
IB 
IB 
IB 
IE 
IE 
IE 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IC 
IE 
IC 


HARDWARE Tr STS MACRO M1200 14-DEC-82 16:33 PAGE 225 

TEST 34 - WRITE SEC TOR-PRT : 2 - LGC TST 


5889 

033556 000417 
033560 040 


5890 

5891 

5892 

5893 

5894 

5895 

5896 

5897 

5898 

5899 

5900 

5901 

5902 

5903 

5904 

5905 

5906 

5907 

5908 

5909 

5910 

5911 


5914 

5915 

5916 

5917 

5918 

5919 

5920 


127 


.SBTTl TEST 34 - WRITE SECfuR-PRT:2 - LGC TST 
BR BGNT34 ;BR TO BGN TST 

122 T34MSG: . ASCIZ / WRITE SECT0R-PRT:2 - LGC TST/ 

.EVEN 

;*TEST TOVERIFY THAT TK'E CONTROLLER WILL COMPLETE A WRITE SECTOR IN 
; BOTH DENSITIES l RETURN A VALID ERROR CODE. SIMILAR TO WRITE 
; SECTOR PRT:1, BUT WITH DISKETTE IN OPPOSITE DENSITY. 


BGNTST 

IF LOGIC TEST 
: THEN-SETUP TEST IDENT 

CALL DEVICE DENSITY CHECK 
: SET DENSITY CONTROL=DISK DEN 

CALL WRITE SECTOR 
IF NO COMMAND ERROR (ESCAPE TEST) 

: THEN-CALL ERROR CHECK 

CALL COMPLIMENT DENSITY CONTROL 
CALL WRITE SECTOR 
IF NO COMMAND ERROR (ESCAPE TEST) 
: : THEN-CALL ERROR CHECK 

ENDIF 
NOP 
ENDIF 
NOP 

ENDIF 

enl :t 


BOARD CALLOUT: 

1. CONTROLLER 

2. R/W ELECTRONICS 
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5923 033616 





TSETUP 

#T34TBL,TSTID 

SETUP TEST ID TBL-TEST* 34 

033616 

012737 

033730 

002466 

BGNT34: 

MOV 

033624 

032737 

000001 

002324 

IAT34: 

BIT 

fLOGICT.TSTMOD 

IF TEST MODE=LOGIC TEST 

033632 

00K34 



BEQ 

XT34 

BIT SET. THEN 

033634 

004737 

020736 



CALL 

LTSTUP 

CALL LOGIC TEST SETUP 

5924 

5925 033640 

004737 

017350 



CALL 

DENCHX 

CALL DENSITY CHECK 

5926 033644 

004737 

020472 



CALL 

CALL 

SDENC 

CALL SET DENSITY CONTROL-DENSI TY STATUS 

5927 033650 

004737 

010744 



WRITE 

CALL WRITE SECTOR 

5928 033654 





ESCAPE 

TST 

IF NO COMMAND ERROR. THEN 

5929 033660 

004737 

017724 



CALL 

ERRCHK 

CALL ERROR CHECK 

5930 033664 

004737 

020430 



CALL 

CDENC 

CALL COMPLIMENT DENSITY CONTROL 

5931 033670 

052737 

004000 

002476 


BIS 

ANEGTST.FLAGST 

SET FLAGST-NEG TEST FLAG 

5932 033676 

012737 

000030 

002464 


MOV 

fDENERR.NGTSER 

SETUP NEG TEST ERR ERR=DENSITY ERR 

5933 033704 

004737 

010744 



CALL 

WRITE 

CALL WRITE 

5934 033710 

004737 

011340 



CALL 

RDERCD 

CALL READ ERROR CODE 

5935 033714 





ESCAPE 

TST 

IF NO COMMAND ERROR 

5936 033720 

004737 

017724 



CALL 

ERRCHK 

CALL ERROR CHECK 

5937 033724 




XT34: 

EXIT 

TST 


5938 033730 





REGTBL 

CSESAL 


015036 





REGS1=CSESAL 

5939 033730 





TTBL 

REGCK.O 


033730 

033560 





T34TBL: 

.WORD T34MSG 

033732 

000001 






.WORD REGCK 

033734 

000000 






.WORD 0 

033736 

177777 






.WORD -1 

033740 

033740 

015036 





T34RTB: 

.WORD PEGS1 

033742 

177777 






.WORD -1 

5940 033744 





FRUTBL 

CTlRWE 


033744 

033744 

006651 





T34FTB: 

.WORD CTLRWE 

033746 

177777 






.WORD -1 

5941 

5942 033750 





ENDTST 




J 13 


SEG 165 
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5945 


033752 000422 

033754 040 104 105 


.SBTTl TEST 35 - DELETED DATA WRITE PR T : 2 - LGC TST 
BR 8GNT35 ;BR TO 8GN TST 

T35MSG: . ASC 1 2 / DELETED DATA WRITE PRT:2 - LGC TST/ 

.EVEN 


5946 

5947 

5948 

5949 

5950 

5951 

5952 

5953 

5954 

5955 

5956 

5957 

5958 

5959 

5960 

5961 

5962 

5963 

5964 

5965 

5966 

5967 

5968 

5969 

5970 

5971 

5972 

5973 

5974 

5975 

5976 


TEST TO VERIFY THAT THE DEVICE SET A DELETED DATA MARK ON THE DISKETTE 
HEADER AND RETRIEVE THIS DATA ON A KNOWN GOOD DISKETTE. THIS IS DONE 
IN OPPOSITE DENSITY OF TEST 1. 


8GNTST 

IF LOGIC TEST 
: THEN-SETUP TEST IDENT 
: CALL DEVICE DENSITY CK 

SET DENSITY CONTROL=DENSITY STATUS 
SET DELETED DATA FLAG (BIT#3-CMD) 

CALL WRITE SECTOR 

IF NO COMMAND ERROR (ESCAPE TEST) 

: : THEN-CALL READ SECTOR 

IF NO COMMAND ERROR (ESCAPE TEST) 

: : THEN-IF RXESR-DELETED DATA BIT NOT SET 

: : : : THEN-SET ERROR NUMBER=DELETED DATA ERR 

: : : : CALL ERROR 

: ENDIF 

: ENDIF 

ENDIF 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1. CONTROLLER 

2. R/W ELECTRONICS 


K 13 
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5979 03402C 

034020 012737 034150 002466 
034026 032737 000001 002324 

034034 001443 
034036 004737 020736 

5980 034042 004737 017350 

5981 034046 004737 020472 

5982 034052 012737 000010 002402 

5983 034060 004737 010744 

5984 034064 004737 011340 

5985 034070 

5986 034074 004737 017724 

5987 034100 004737 011062 

5988 034104 

5989 034110 032777 000100 146234 

5990 034116 001006 

5991 034120 012737 000032 002520 

5992 034126 004737 003060 

5993 034132 000404 

5994 034134 005037 002402 

5995 034140 004737 010744 

5996 034144 

5997 034150 

015036 

5998 034150 

034150 033754 
034152 000001 
034154 000000 
034156 177777 

034160 

034160 015036 
034162 177777 

5999 034164 
034164 

034164 006651 

034166 177777 

6000 

6001 034170 



TSETUP 


BGNT35: 

MOV 

#T35TBL,TSTID 

I A T 35 : 

BIT 

#L0G1CT.TSTM0D 


BEQ 

XT35 


CALL 

LTSTUP 


CALL 

DENCHK 


CALL 

SDENC 


MOV 

#DLDCMD,DELDAT 


CALL 

WRITE 


CALL 

RDERCD 

IBT35: 

ESCAPE 

TST 


CALL 

ERRCHK 


CALL 

READ 

ICT35: 

ESCAPE 

TST 

IDT35 : 

BIT 

#DLDBIT.3RXDB 


BNE 

LDT35 


MOV 

#DLDTER,ERRNBR 


CALL 

ERROR 


BR 

XT35 

LDT35: 

CLR 

DELDAT 


CALL 

WRITE 

X T 35 : 

EXIT 

TST 


REGTBL 

CSESAL 


TTBL 

REGCK. 0 

T35TBL 


T35RT8: 


FRUTBL CTLRUE 

T35FTB: 


ENDTST 


SEC 166 


SETUP TEST ID TBL-TEST# 35 

IF TEST MODE=LOGIC TEST 

BIT SET, THEN 

CALL LOGIC TEST SETUP 

CALL DEVICE DENSITY CHECK 

CALL SET DENSITY CONTROL=DENSITY STATUS 

SET DELETED DATA FLAG 

CALL WRITE SECTOR 

CALL READ ERROR CODE 

IF NO COMMAND ERROR. THEN 

CALL ERROR CHECK 

CALL READ SECTOR 

IF NO COMMAND ERROR. THEN 

IF RXESR-DELETED DATA BIT 

NOT SET. THEN 

SETUP ERROR NUMBER=DELETED DATA ERROR 

CALL ERROR 

BR TO EXIT TST 

CLEAR DELETED DATA MODE 

CALL WRITE SECTOR - CLR DEL DAT FIELD 


REGSUCSESAL 

.WORD T35MSG 
.WORD REGCK 
.WORD 0 
.WORD -1 

.WORD REGS1 
.WORD -1 


WORD CTLRWE 
WORD -1 
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6004 

034172 000425 
034174 040 104 

6005 

6006 

6007 

6008 

6009 

6010 
6011 
6012 

6013 

6014 

6015 

6016 

6017 

6018 

6019 

6020 
6021 
6022 

6023 

6024 

6025 

6026 

6027 

6028 

6029 

6030 

6031 

6032 

6033 

6034 

6035 

6036 

6037 

6038 

6039 

6040 

6041 

6042 

6043 

6044 

6045 

6046 

6047 

6048 


.SBTTL TEST 36 - DISKETTE l DENSITY DATA CHECK - IGC TST 
8R BGNT36 ;BR TO BGN TST 

111 T36MSG: .ASCIZ / DISKETTE l DENSITY DATA CHECK - IGC TST/ 

.EVEN 

;*TEST TO VERIFY WITH A KNOWN GOOD DISKETTE THAT THE DEVICE WILL READ 
; AND WRITE TO THE DISKETTE WITHOUT DATA ERRORS. BOTH DENSITIES WILL 
; BE DONE. 


BGNTST 

IF LOGIC TEST 
: THEN-SETUP TEST IDENT 
: CALL DENSITY CHECK 

CALL SETUP DENSITY CONTROL=DENSI TV STATUS 

CLEAR DO FLAG 

BGNDO 

: SET DATA PATTERN=RANDOM 
: CALL DATA PATTERN GENERATOR 
: SET TRACK t SECTOR INITIALIZE FLAG 
: : SET TRACK l SECTOR=SEQUENCE MODE 

: : BGNDO 

: : : CALL GET TRACK & GET SECTOR 

: : : CALL FILL BUFFER 

: : : CALL WRITE SECTOR 

: : SETUP TO CLEAR RX INTERNAL BUFFER 

: : : CALL FILL BUFFER-CLEAR INTERNAL BUFFER 

: : SETUP DATA BUFFER 

: : CALL READ SECTOR 

: : CALL EMPTY BUFFER 

: : : CALL DATA CHECK 

: : IF ERROR 

: : : : THEN-CALL DATA ANVLSIS ERROR 

: : END IF 

: COUNT IL TRACK l SECTOR DONE OR DATA ERR0RS=10 
: : CALL CHANGE DENSITY 

: SET DENSITY CONTROL=DENSITY STATUS 
: : INCREMENT DO FLAG 

DOUNTIL DO FLAG=2 OR ABORT FLAG SET 
: NOP 

ENDIF 

ENDTST 


BOARD CALLOUT: 

1 . CONTROLLER 

2. R/W ELECTRONICS 




S£Q 168 


i 


SETUP TEST ID TBL-TEST# 36 
IF TEST MODE=LOGIC TEST 
BIT SET, THEN 
CALL LOGIC TEST SETUP 
CLEAR COUNTER (TEST TEMP #1) 

CALL DENSITY CHECK 

CALL SETUP DENSITY CONTROL=DENSI TY STATUS 

SETUP DATA PATTERN=RANDOM 

CALL SET DATA PATTERN 

SET TRACK ft SECTOR INITIALIZE FLAGS 

SET TRACK ft SECTOR SEQUENCE MODE FLAGS 

CALL GET TRACK 

CALL GET SECTOR 

CALL FULL BUFFER 

CALL WRITE SECTOR 

CALL CLEAR DATA BUFFER 

SETUP TO CLEAR RX INTERNAL BUFFER 

CLEAR THE BUFFER 

•cTUP DATA BUFFER ADDRESS 

CALL READ SECTOR 

CALL EMPTY BUFFER 

CALI DATA CHECK 

DOUNTIL DATA ERROR COUNT 

EQUALS 10, OR 

TRACKS DONE FLAG 

SET, AND 

SECTORS DONE FLAG 
SET 

CALL COMPLIMENT DENSITY CONTROL 

CALL SET DENSITY 

INCREMENT COUNTER 

SET WORD COUNT 

DOUNTIL FIN FLAG 

SET OR 

COUNT 

EAUALS 2 


REGS1=CSESAL 

.WORD T36MSG 
.WORD REGCK 
.WORD 0 
.WORD -,1 

.WORD REGS1 
.WORD -1 


WORD CTLRWE 
WORD -1 



N 13 


SEO 169 


HARDWARE TESTS MACRO M1200 H-DFC-82 16:33 PAGE 235 
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6099 03A526 ENDMOD 

6100 
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6103 

6104 

6115 

6116 

6144 

6145 034526 

6146 

6147 

6148 

6149 

6150 

6151 

6152 

6153 

6154 

6155 

6156 034526 

6157 

6 1 58 034530 
615° 034540 

6160 034550 

6161 034562 

6162 034574 

6163 

6169 034606 

6170 

6171 034606 

6172 034621 

6173 034634 

6174 034647 

6175 034662 

6176 

6177 

6178 
6185 


.NLIST BEX, ME 
.TITLE PARAMETER CODING 

.SBTTL HARDWARE PARAMETER CODING SECTION 

BGNMOD 

*THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNHRD 

GPRMA 

GPRMA 

GPRMD 

GPRMD 

GPRMD 


MSG1, 0,0. 0.177777. YES 
MSG2. 2. 0.0,177777. YES 
MSG3. 4. 0,177777.0. .1 . .YES 
MSG4. 6. 0.1 77777,0. .1 . .YES 
MSG4A.10.0.177777.0.7.YES 






ENDHRD 


122 

130 

040 

MSG1 : 

.ASCIZ 

/RX BUS ADR/ 

126 

105 

103 

MSG2: 

.ASCIZ 

/VECTOR ADR/ 

104 

122 

111 

MSG3: 

.ASCIZ 

/DRIVE 0 / 

105 

130 

120 

MSG4: 

.ASCIZ 

/EXP WRD-CR/ 

102 

122 

055 

MSG4A: 

.ASCIZ 

.EVEN 

/BR-LEVEL / 
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IQ 171 


6188 

6189 

6190 

6191 

6192 

6193 

6194 

6195 

6196 

6197 

6198 

6199 034676 

6200 

6201 034700 

6202 034706 

6203 034710 

6204 034716 

6205 034724 

6206 034732 

6207 034744 

6208 034754 

6209 034766 

6210 034774 


6211 034776 

6212 035004 

6219 035012 

6220 

6221 

6222 

6223 035012 

00001 5 
000012 
105 

'.30 

120 

65: 

9 

MSG5: 

GPRML 

GPRML 

ENDSFT 

CR==15 
LF==1 2 
.ASCIZ 

6224 035044 

124 

105 

123 

MSG6: 

.ASCIZ 

6225 035057 

104 

111 

101 

MSG7: 

.ASCII 

6226 035106 

040 

040 

040 


.ASCII 

6227 035160 

040 

040 

040 


.ASCII 

6228 035213 

040 

040 

040 


.ASCII 

6229 035301 

040 

040 

040 


.ASCII 

6230 035332 

040 

040 

040 


.ASCII 

6231 035403 

040 

040 

040 


.ASCII 

6232 035461 

040 

040 

040 


.ASCII 

6233 035552 

040 

040 

040 


.ASCII 

6237 035651 

124 

131 

120 


.ASCIZ 

6238 035677 

IH 

117 

10? 

MSGS : 

.ASCIZ 

6239 035722 

106 

125 

116 

MSG9: 

.ASCIZ 

6240 035745 

110 

101 

122 

HSG10: 

.ASCIZ 

6241 036014 

116 

117 

116 

MSG14: 

.ASCIZ 

6242 036053 

105 

130 

124 

MSG15: 

.ASCIZ 

6243 036124 

124 

105 

123 

MSG17: 

.ASCIZ 

6244 036150 

040 

040 

040 

MSG20: 

.ASCIZ 


■SBTTL SOFTWARE PARAMETER CODING SECTION 


THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES, THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNSFT 

GPRML MSG6,2,1 , V ES 
XFERF 1$ 

GPRML MSG7.2.2.YES 
GPRML MSG8,4,L0GICT,YES 
GPRML MSG9.4.FUNCTT.YES 
GPRMD MSG1 0 ,0 ,0 , 1 777 77,1 .1 77777, YES 

GPRMA MSG14, 24,0, 0,177777, YES 

GPRMD MSG1 5, 26, 0.030000, 0,3, YES 

GPRML MSG17,2,100,YES 
XFERF 6$ 

GPRML MSG20.12,20,YES 
GPRML MSG5,12,SIDFLG,YES 


.•CARRIAGE RETURN 
.-LINE FEED 
/EXPANSION WORD TYPE <CR> / 

/TEST HELP / 

/DIAGNOSTIC MODES ARE:/<CR><LF> 

/ LOGIC TEST, FUNCTION TEST, OR BOTH/<CR><LF> 

/ -FUNCTION TESTS (1-10)/<CR><LF> 

/ ACT AS QUICK VERIFY g REPORT FAILING FUNCTIONS/<CR><LF> 

/ -LOGIC TESTS (11-36)/<CR><LF> 

/ ANALYZE FAILURE % GIVE ERROR INFO/<CR><LF> 

/ REPORT FIELD REPLACEABLE UNITS , TRU , S"/<CR><LF> 

/ ->DEVICE FATAL THRESHOLD LEVEL (DVTL) IS SET = 1/<CR><LF> 

/ '•DVTL" = NO. OF HARD ERRS THAT CAUSE DEVICE FATAL ERR/<CR><LF> 

/TYPE "CR” TO CONTINUE/ 

/LOGIC TEST MODE / 

/FUNCTION TEST MODE/ 

/HARD ERR -> DEVICE FATAL THRESHOLD LVL/ 

/NON-EXISTANT HEM ADR (NXM TST)/ 

/EXTENDED ADR BITS: 13 t 12 (NPR-NXM TST)/ 

/TEST CONTROL FLAGS / 

/ PRINT ONLY 10 DATA ERRORS g CONTINUE / 


.EVEN 
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D 14 


SEC 172 


6249 



6250 


.SBTTL - RX02 FILL BUFFER AREA 

6251 



6252 



6253 036222 

000400 

DATPAT: .REPT 256. .-DATA PATTERN - RX02 FILL BUFFER 

6256 



6257 



6258 


.SBTTL - RX02 EMPTY BUFFER AREA 

6259 



6260 



6261 036622 

000400 

DATBUF: .REPT 256. ; DATA BUFFER - RX02 EMPTY BUFFER 

6264 037222 

000000 

.WORD 0 

6265 037224 

000000 

.'•1RD 0 

6266 



6273 


.S8TTL - PATCH AREA 

6274 



6275 037226 

000000 

PATCH: 0 ; PATCH AREA 

6276 

037630 

.=.♦400 

6277 



6278 037630 


LASTAD 

037634 


L$LAST : : 

6279 037634 

6280 


ENDMOD 

6281 037634 


BGNSETUP 2 

6282 037634 


BGNPTAB 

6283 037640 

177170 

177170 

6284 037642 

000264 

264 

6285 037644 

000000 

0 

6286 037646 

000000 

0 

6287 037650 

000005 

5 

6288 037652 


ENDPTAB 

6289 037652 


BGNPTAB 

6290 037656 

177170 

177170 

6291 037660 

000264 

264 

6292 037662 

000001 

1 

6293 037664 

000000 

0 

6294 037666 

000005 

5 

6295 037670 


ENDPTAB 

6296 037670 


ENDSETUP 

6297 

000001 

.END 
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ABORT 

002452 

BGNT35 

ACLOU = 

000010 

BGNT36 

ACLOUD= 

000037 

BGNT4 

ACLOWF = 

000050 

BGNT5 

ADR = 

000020 G 

8GNT6 

ADRTST 

022066 

BGNT7 

ADSCMS 

007760 

BGNT8 

ADTKHS 

010257 

BGNT9 

ALG02E= 

000040 

BITCNT 

ASSEMB= 

000010 

BITLIM 

AUDN 

012032 

BITOFF 

AWTR 

012110 

BITO = 

BACDB 

013652 

BITOO = 

BADCK 

013276 

BIT01 = 

BADURD 

014702 

BIT02 = 

! BAUWCH 

011700 

BIT03 = 

'BBT10 

024314 

BIT04 = 

BBT21 

027600 

BIT05 = 

BBT23 

030336 

BIT06 = 

BBT24 

030546 

BIT07 = 

BBT27 

031400 

BIT08 = 

BBT31 

032474 

BIT09 = 

BBT 32 

033042 

BIT1 = 

BBT 36 

034304 

BIT10 = 

BBT7 

023460 

8IT11 = 

BCGSC 

013202 

BIT12 = 

BCT32 

033044 

BIT13 = 

BCT36 

034330 

BIT14 = 

BET31 

032642 

BIT15 = 

BGNT1 

022364 

BIT2 = 

6GNT10 

024254 

BIT3 = 

BGNT11 

024412 

BIT4 = 

BGNT12 

024650 

BIT5 = 

BGNT13 

025074 

BIT6 = 

BGNT14 

025316 

BIT7 = 

BGNT15 

025546 

BIT8 = 

BGNT16 

025662 

BIT9 = 

BGNT17 

026276 

BOE = 

BGNT18 

026452 

BRONPT 

BGNT19 

027146 

BTRK 

BGNT2 

022514 

BTRP4 = 

BGNT20 

027370 

BTRP6 = 

BGNT21 

027534 

BYTCNT 

BGNT22 

030166 

BYTNUM 

BGNT23 

030306 

CABLES= 

BGNT24 

030510 

CDENC 

BGNT25 

030762 

CDERCX 

BGNT26 

031140 

CDMS 

BGNT27 

031332 

CEINIT= 

6GNT28 

031530 

CKBITS 

BGNT29 

031732 

CKERR = 

BGNT3 

022650 

CLRCR 

BGNT30 

032132 

CLRDAT 

8GNT31 

032430 

CLRDEV 

BGNT32 

033002 

CLRERR 

BGNT33 

033416 

CLRRGS 

BGNT34 

033616 

CMD 


034020 CMDERR= 000020 

034246 CMDMSG 0G7164 

022766 CMDMO 007237 

023102 CMDM1 007255 

023230 CMDM2 007274 

0234 14 CMDM3 007313 

023664 CMDM4 007331 

024036 CMDM5 007347 

014672 CMDM6 007374 

014674 CMDM7 007430 

014676 CMDM8 007452 

000001 G CMDPE 007502 

000001 G CMERMS 007216 

000002 G CMFTMS 007204 

000004 G CMPWRO 014700 

000010 G CONTRL* 000002 

000020 G C0NTSW= 000022 

000040 G CR 000015 G 

000100 G CRCERB= 000001 

000200 G CRCERR= 000004 

000400 G CSERTB 014776 

001000 G CSESAL= 015036 

000002 G CSESIT= 015056 

002000 G CSESND= 015076 

004000 G CSESRS- 015066 

010000 G CSONLY= 015026 

020000 G CSRCHK 013750 

040000 G CSRCMP 014260 

100000 G CSRERR= 000033 

000004 G CSRMSK 014262 

000010 G CSRSET 014270 

000020 G CTKO 002444 

000040 G CTK1 002445 

000100 G CTLINF* 006646 

000200 G CTLONL= 006654 

000400 G CTLRWE= 006651 

001000 G C$AU = 000052 

000400 G C$AUTO= 000061 

012372 CSBRK = 000022 

002451 C$BSEG= 000004 

000004 C$BSU8= 000002 

000006 CSCEFG= 000045 

013514 C$CLCK= 000062 

013516 C$CLEA= 000012 

000010 C$CLOS= 000035 

020430 CSCLP1= 000006 

011544 CSCVEC= 000036 

010177 C$DCLN= 000044 

015046 C$D0DU= 000051 

014522 C$DRPT= 000024 

020000 CSDU = 000053 

021122 CSEDIT= 000003 

013642 C$ERDF= 000055 

010472 C$ERHR= 000056 

010300 C*ERRO= 000060 

017124 C$ERSF= 000054 

002400 CSERS0= 000057 


L 


SEO 173 


E 14 


CSESCA= 000010 
CSESEG= 000005 
C*ESUB= 000003 
C$ETST= 000001 
CSEXI T= 000032 
C$GETB= 000026 
CSGETW= 000027 
C$GMAN= 000043 
C$GPHR= 000042 
CSGPLO= 000030 
C$GPRI= 000040 
CSINIT= 000011 
C$INLP= 000020 
CSMANI= 000050 
CSMEM = 000031 
CSMSG = 000023 
C$OPEN= 000034 
CSPNTB* 000014 
C$PNTF= 000017 
C*PNTS= 000016 
C$PNTX= 000015 
C$010 = 000377 
C$RDBU= 000007 
C$REFG= 000047 
C*RESE= 000033 
C$REVI= 000003 
C$RFLA= 000021 
C$RPT = 000025 
C$SEFG= 000046 
C$SPRI= 000041 
C$SVEC= 000037 
C$TPRI= 000013 
DAERCT 013520 
DAT ABF = 000055 
DATACK 013246 
DATAS8 013522 
DA TAWS 013524 
DAT AO 012430 

DATA1 012446 
DATBUF 036622 
DATBYT 012656 
DATCK = 000004 
DATER = 000005 
DATPAT 036222 
DBRERR= 000034 
DDCFLG= 000002 
DELDAT 002402 
DENBIT= 000400 
DENCHK 017350 
DENDSK= 000020 
DENERR= 000030 
DENMIX= 000031 
DENSTA 002414 
DENSTY 002412 
DFPTBL 002276 G 
DIAGMC= 000000 
DISKET= 000014 


DISKSP= 000030 
DLDBIT= 000100 
DLDCMD= 000010 
DLDERR= 000007 
DLDTERs 000032 
DLPDN = 000010 
DLY 012026 
DMSG1 013561 
DMSG18 013526 
DMSG2 013615 
DNBIT = 000040 
DNFLAG 012030 
DNNINT= 000015 
DNNOTR: 000063 
DNWTMT 002474 
DOOROP= 000026 
DRIVE 002406 
DRIVE1= 000400 
DRVDEN= 000040 
DRVOFF 002420 
DRVPRT 002514 
DRVRDY= 000200 
DRVURG= 000027 
DRV1 = 000020 
DUMSG1 022012 
DVDNCK 011634 
DVFERR= 004000 
DVRDYE= 000025 
DVRYCX 017310 
DVSTCX 017140 
DVTL 002320 
DX 012024 
EADDC 017514 
EADRC 017346 
EADSC 017220 
EAERR 003256 
E'FRU 005506 
EaNAT 027076 
EAPCE 007106 
EARCR 01420 
EASRC 014400 
EATKE 017712 
EBCMD = 000002 
EBDCK 013470 
EBDDC 017434 
EBGEN 015152 
EBGTK 013062 
EBI1 021720 
EBNAT 027030 
EBRCR 013716 
EBTXP 010062 
EBT11 024532 
EBT12 024744 
EBT13 025176 
EBT18 026530 
EBT31 032604 
ECERNB 020164 
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ECERNT 

015164 

END13 1 

ECERR 

003230 

epeck 

EC NAT 

027074 

ERIDNT 

ECSTA 

015330 

ERMSTB 

ECTAB 

016044 

ERMSO 

ECT18 

026674 

ERMS10 

ECT21 

027660 

ERMS11 

ECT32 

033256 

ERMS12 

ECT36 

034440 

ERMS13 

ECO 

016116 

ERMS14 

EC1 

016136 

ERMS15 

ecu 

016407 

ERMS16 

E C 1 2 

016451 

ERMS17 

EC13 

016477 

ERMS19 

E C 1 4 

016550 

ERMS2 

EC1 5 

016567 

ERHS20 

E C 1 6 

016640 

ERMS21 

EC17 

016670 

ERMS22 

EC2 

016175 

ERHS23 

f EC20 

016716 

ERMS24 

EC22 

016753 

ERMS25 

EC23 

017013 

ERMS26 

EC24 

017033 

ERHS27 

EC25 

01 7052 

ERMS28 

EC4 

016234 

ERMS29 

ECS 

016274 

ERMS3 

EC7 

016337 

ERHS30 

EDECK 

020122 

ERMS31 

EOGSC 

013236 

ERMS32 

EDSRC 

014462 

ERMS33 

EDT18 

026722 

ERMS34 

EDT21 

027662 

ERMS4 

EEECK 

020072 

ERMS40 

EEFRU 

005604 

ERMS41 

EESRC 

014516 

ERHS42 

EET32 

033116 

ERMS43 

EFENV 

003466 

ERMS44 

EFERR 

003330 

ERHS45 

EFFRU 

005576 

ERMS46 

EFT31 

032716 

ERMS47 

EF.CON= 

000036 G 

ERMS48 

ef.new= 

000035 G 

ERMS49 

EF.PWR= 

000034 G 

ERMS5 

EF.RES= 

000037 G 

ERMS50 

EF.STA= 

000040 G 

ERMS51 

EGFRU 

005554 

ERMS6 

EGSRC 

014330 

ERMS7 

EIECK 

020070 

ERNBEV 

EMBUFF= 

000020 

ERNTCK 

EMDCK 

013444 

ERRBIT= 

EHPADR 

002360 

ERRBLK 

EMPBUF 

010626 

ERRCHK 

£MPERR= 

000013 

ERRCMD 

END CK 

013434 

ERRCTR 

ENDDCK 

013506 

ERRFLG= 

ENDLD 

012652 

ERRMSG 

ENDXER 

016012 

ERRNBR 


012612 

ERRNST= 

000016 

020140 

ERROLD 

003340 

003502 G 

ERROR 

003060 

003534 

ERRREG 

015444 

003706 

ERRSAV 

003336 

00401 5 

ERRTYP 

002516 G 

004035 

ertkms 

010241 

004056 

ESERTB 

014746 

004112 

ESRCHK 

014112 

004146 

ESRCMP 

014264 

004177 

ESRMSK 

014266 

004226 

ESRSET 

014272 

004264 

EVL - 

000004 G 

004314 

EXMS 

010156 

003717 

EXTADR 

002366 

004333 

ESEND = 

002100 

004356 

E$LOAD= 

000035 

004402 

FBCMD = 

000000 

004434 

FILADR 

002362 

004467 

FIL8UF 

010510 

004503 

FILERR= 

000012 

004532 

FIN 

002454 

004553 

FLAGSP 

002500 

004564 

FLAGST 

002476 

004575 

FLGDRS 

002502 

003731 

FLOATO 

012456 

004625 

FL0AT1 

012524 

004655 

FONZFG= 

010000 

004670 

FRUMOA 

005713 

004711 

FRUM06 

005746 

004733 

FRUMOO 

005650 

003742 

FRUM1 

006001 

004756 

FRUM10 

006361 

004777 

FRUM11 

006426 

005027 

FRUM12 

006451 

005054 

FRUM13 

006504 

005102 

FRUM14 

006544 

005125 

FRUM2 

006035 

005153 

FRUM3 

006070 

005202 

FRUM4 

006120 

005230 

FRUH5 

006140 

005260 

FRUM6 

006173 

003752 

FRUM7 

006221 

005307 

FRUM8 

006255 

005337 

FRUM9 

006324 

003763 

FRUS1 = 

000000 

003774 

FRUTAD 

005610 

003344 

FRUTBM 

005612 

020170 

FTERCT 

014274 

100000 

FTSTUP 

020700 

002524 C 

FUNCT = 

000000 

017724 

FUNCTT= 

000002 

002422 

FUNTST= 

000040 

003342 

F$AU = 

000015 

100000 

F$AUTO= 

000020 

002522 G 

FSBGN = 

000040 

002520 G 

F$CLEA= 

000007 


f 14 


SEQ 174 


F$DU = 000016 

IAGEN 

015110 

F$END = 000041 

IAGSC 

013106 

F$HARD= 000004 

IAGTX 

012664 

FSHW = 000013 

1A1 1 

021622 

FSINIT= 000006 

IANAT 

026776 

FSJMP = 000050 

IAPCE 

007056 

F*M0D = 000000 

IARCR 

013672 

FSMSG = 000011 

IASCP 

007676 

FSPROT= 000021 

IASDC 

020500 

F SPUR = 000017 

IASRC 

014340 

FSRPT = 000012 

IASTA 

015334 

FSSEG = 000003 

IATKE 

017520 

F$SOFT= 000005 

IATXP 

010006 

FSSRV = 000010 

IAT1 

022372 

FSSUB = 000002 

IAT10 

024262 

F$SU = 000014 

IAT11 

024420 

F$TEST= 000001 

IAT12 

024656 

GETREG 012244 

I ATI 3 

025102 

GETSEC 013104 

iAT14 

025324 

GETTRK 012662 

I ATI 5 

025554 

GTECEN 015106 

IAT16 

025670 

GTECOF 017106 

I ATI 7 

026304 

G$CNTO= 000200 

IAT18 

026460 

G*DELM= 000372 

IAT19 

027154 

G$DISP= 000003 

IAT2 

022522 

G$EXCP= 000400 

IAT20 

027376 

G*HILI= 000002 

IAT21 

027542 

GSLOU= 000001 

IAT22 

030174 

G$N0 = 000000 

IAT23 

030314 

G$0FFS= 000400 

IAT24 

030516 

G$OFSI= 000376 

IAT25 

030770 

GtPRMA= 000001 

IAT26 

031146 

G$PRW>= 000002 

IAT27 

031340 

G$PRML= 000000 

IAT28 

031536 

G$RADA= 000140 

IAT29 

031740 

GSRADB^ 000000 

IAT3 

022656 

G$RADD= 000040 

IAT30 

032140 

G$RADL- 000120 

IAT31 

032436 

G$RAD0= 000020 

IAT32 

033010 

G$XFER= 000004 

I AT 33 

033424 

GSYES = 000010 

IAT34 

033624 

HDRPRT= 000100 

IAT35 

034026 

HDSFDG= 000056 

I AT 36 

034254 

HEuP = 000000 

IAT4 

022774 

HETLCT 003472 

IAT5 

023110 

HOE = 100000 G 

IAT6 

023236 

HRDERR= 040000 

IAT7 

023422 

IACDC 020432 

IAT8 

023672 

IADDC 017402 

IAT9 

024044 

IADID 020614 

IBDCK 

013312 

IADRC 017316 

IBDDC 

017410 

IADSC 017144 

IBDSC 

017152 

IAECK 017726 

I BE 

= 010000 G 

IAENC 020172 

IBECK 

017742 

IAENV 003346 

IBEH8 

010672 

IAERR 003154 

IBENC 

020204 

IAFRU 005406 

IBENV 

003364 
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IBERR 

003140 

ID 

002336 G 

IJT32 033222 

IBFLB 

010554 

IDCOMP 

013020 

IKERR 003260 

IBFRU 

005424 

IDDDC 

017354 

IKT32 033276 

IBGEN 

015116 

IDDSMS 

020642 

IIERR 003274 

IBGSC 

013140 

IDECK 

020022 

IILERC= 000017 

IBG1K 

012770 

IDENC 

020226 

ILLGAL= 010000 

IBM 

021666 

I DENT 1 

015446 

ILTK = 000004 

IBNAT 

027006 

IDENV 

003404 

IMDCK 013352 

IBPCE 

007122 

IDERR 

003242 

IMECK 020074 

IBREC 

011414 

IDGSC 

013224 

INDCK 013402 

IBRED 

011124 

IDSRC 

014446 

INECK 017752 

IBSDN 

011234 

IDSSMS 

020657 

IMF CTL= 006640 

IBSRC 

014416 

IDTKE 

017556 

INI T 021214 

IBSTA 

015270 

IDT11 

024454 

INITDN= 000004 

IBTKE 

017540 

IDT14 

025376 

INI TER 021462 

IBTKP 

010042 

IDT 16 

026050 

INITTK 013102 

, IBT11 

024502 

IDT18 

026700 

INTERF= 000000 

4 IBT12 

024714 

IDT24 

030640 

INTERT 002404 

! IBT13 

025140 

IDT29 

032016 

INTER1 021530 

1 IBT14 

025342 

IDT31 

032516 

INTFCB= 000024 

IBTT6 

025710 

IDT32 

033066 

INTFSW= 000016 

IBT18 

026506 

IDT35 

034110 

INTIAL 010440 

IBT19 

027170 

IDU = 

000040 G 

INTNDN= 000014 

IBT29 

031776 

IEDCK 

013322 

INTONL= 006644 

IBT30 

032334 

IEERR 

003164 

INTRHD 012276 

IBT35 

034070 

IER = 

020000 G 

INTTBL 021742 

IBUWCH 

011704 

IESRC 

014466 

IOECK 017762 

IBWRT 

011014 

IETKE 

017566 

IPECK 020124 

ICDDC 

017464 

IET14 

025422 

ISC = 001000 

ICDSC 

017160 

IE121 

027706 

I SR = 000100 G 

ICECK 

020012 

IET32 

033074 

I TK = 000400 

ICEM8 

010712 

IEUUCH 

011752 

IXE = 004000 G 

ICENC 

020214 

IFDCK 

013332 

ISAU = 000041 

ICERR 

003214 

IFENV 

003420 

ISAUT0= 000041 

ICFLB 

010574 

IFERR 

003062 

I$CLN = 000041 

ICGTK 

012742 

IFFRU 

005524 

ISDU = 000041 

ICNAT 

027046 

IF SRC 

014346 

I$HRD = 000041 

ICPCE 

007130 

IFTKE 

017612 

IilNITx 000041 

ICREC 

011434 

IFT21 

027714 

I SHOD = 000041 

ICRED 

011144 

IFT31 

032652 

ISMSG = 000041 

ICSRC 

014432 

JFT32 

033122 

I$PR0T= 000040 

ICSTA 

015276 

IGENV 

003430 

ISPTAB= 000041 

ICTKE 

017550 

IGERR 

003200 

I SPUR = 000041 

ICT11 

024546 

IGFRU 

005532 

ISRPT = 000041 

ICT12 

024756 

IGSRC 

014304 

ISSEG =• 000041 

ICT13 

025210 

IGTKE 

017622 

I$SETU= 000041 

ICT14 

025352 

IGT21 

027724 

ISSFT = 000041 

ICT16 

025754 

IGT31 

032660 

ISSRV = 000041 

ICT18 

026652 

IGT32 

033132 

issue = 000041 

ICT21 

027640 

Ir.'FNV 

003444 

ISTST = 000041 

ICT23 

030372 

IHTKC 

017654 

JSJMP = 000167 

ICT24 

030566 

IHT32 

033156 

LACDC 020454 

ICT29 

032012 

HECK 

O20056 

003124 

LAI1 021644 

ICT31 

032510 

IIERR 

LANAT 027036 

ICT35 

034104 

iitke 

01766? 

LAPCE 007076 

ICOWCH 

011712 

1 1 T 32 

033202 

LASDC 020524 

I CURT 

011034 

IJERR 

003114 

LATKP 010130 


14 
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LBDDC 

017430 

LSEXP4 

002064 G 

LBFRU 

005456 

LSEXP5 

002066 G 

LBGEN 

015134 

L SHARD 

034530 G 

LBGTK 

013006 

LSHIME 

002120 G 

LB1 1 

021704 

LSHPCP 

002016 G 

LBNAT 

027022 

LSHPTP 

002022 G 

LBTKP 

010056 

LSHU 

002276 G 

LBUUCH 

011740 

LSICP 

002104 G 

LCMD 

002424 

LSINIT 

021214 G 

LCSTA 

015314 

LSLADP 

002026 G 

LCT24 

030634 

LSLAST 

037634 G 

LCT29 

032042 

LSLOAD 

002100 G 

LDT11 

024474 

LSLUN 

002074 G 

LDT31 

032562 

LSMREV 

002050 G 

LDT35 

034134 

LSNAME 

002000 G 

LET14 

025446 

LSPRIO 

002042 G 

LET21 

027770 

LSPROT 

002310 G 

LEUUCH 

012000 

LSPRT 

002112 G 

LF 

000012 G 

LSREPP 

002062 G 

LFFRU 

005562 

LSREV 

002010 G 

LGFRU 

005550 

LSRPT 

021212 G 

LGT31 

032712 

LSSOFT 

034700 G 

LKERR 

003312 

LSSPC 

002056 G 

LKT32 

033316 

LSSPCP 

002020 G 

LMECK 

020114 

LSSPTP 

002024 G 

LOAD 

012614 

LSSTA 

002030 G 

LOE = 

040000 G 

LSSU 

002320 G 

L0GICT= 

000001 

LSTEST 

002114 G 

LOT = 

000010 G 

LSTIML 

002014 G 

LRXCSR 

002426 

1. SUN IT 

002012 G 

LRXESR 

002430 

LI 0000 

002310 

LSIFLG= 

000400 

LI 0002 

002350 

LTSTUP 

020736 

LI 0003 

002532 

LSACP 

002110 G 

LI 0004 

002540 

LSAPT 

002036 G 

LI 0005 

002546 

LSAU 

022062 G 

LI 0006 

003532 

LSAUT 

002070 G 

LI 0007 

021212 

LSAUTO 

022054 G 

LI 0010 

021522 

LSCCP 

002106 G 

L10011 

021774 

LSCLEA 

021764 G 

L10012 

022010 

LSCO 

002032 G 

L10013 

022060 

LSDEPO 

002011 G 

L10014 

022064 

LSDESC 

002122 G 

LI 001 5 

022454 

LSDESP 

002076 G 

L10016 

022614 

LSDEVP 

002060 G 

L10017 

022730 

LSDISP 

002164 G 

LI 0020 

023046 

LSDLY 

002116 G 

LI 0021 

023164 

LSDTP 

002040 G 

LI 0022 

023350 

LSDTYP 

002034 G 

LI 0023 

023612 

LSDU 

021776 G 

LI 0024 

024002 

LSDUT 

002072 G 

LI 0025 

024220 

LSDVTY 

002154 G 

LI 0026 

024362 

LSEF 

002052 G 

LI 0027 

024620 

LSENVI 

002044 G 

LI 0030 

025030 

LSERRT 

002516 G 

LI 0031 

025260 

LSETP 

002102 G 

LI 0032 

025500 

LSEXP1 

002046 G 

LI 0033 

025630 
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Li 0034 026232 

LI 0035 026426 
LI 0036 026772 
LI 0037 027336 
Li 0041 030124 

LI 0042 030244 
L10043 030446 
LI 0044 030706 
L10045 031076 
Li 0046 031276 
Li 004 7 03K66 

Li 0050 031662 
LI 0051 032076 

LI 0052 032376 
L10053 032750 
LI 0054 033354 

L 10055 033554 

L10G56 033750 
LI 0057 034170 
LI 0060 034524 
LI 0061 034606 

Li 0062 035012 
L10C63 037640 
LI 0064 037656 
LI 0065 037652 
LI 0067 037670 
MAXSEC 002342 G 
MINSEC 002340 G 
MOTOR = 000032 
MSG1 034606 
MSG10 035745 
MSG14 036014 
MSG15 036053 
MSG17 036124 
MSG2 034621 
MSG20 036150 
MSG3 034634 
MSG4 034647 
MSG4A 034662 
MSG5 035012 
MSG6 035044 
MSG7 035057 
MSGS 035677 
MSG9 035722 
NAT 026774 
NATAOR 027102 
NATCTR 027100 
NCMD 011542 
NEGTST= 004000 
NEW 021352 
NEXT 021370 
' NGTSER 002464 
N0DN6T= 000060 
NOI TD8= 000061 
NOITDP= 000062 
NOPWR = 000034 


NOTRB T = 000057 
NPRERR= 000053 
NPRJPR= 000020 
NXMADR 002344 G 
NXMERR= 000052 
OD 002334 G 
ODCCMP 013032 
ODTNOT= 000001 
ONEFIL= 000000 
OSAPTS= 000000 
OSAU = 000001 
0$BGNR= OUOOOO 
0S8GNS= 000001 
OSDU = 000001 
0SERRT= 000001 
OSGNSW= 000001 
OSPOIN= 000001 
0$SETU= 000001 
PAT 012660 
PATCH 037226 
PAT125 012532 
PAT 333 012556 
PG 012434 
PHYDRV= 000006 
PLOC 021524 
PNT = 001000 G 
POWRSP= 000012 
PRESCK 013044 
PR I = 002000 G 
PRILEV= 000054 
PR I MSG 030006 
PRIORT 002416 
PRITAB 021732 
PR I 00 = 000000 G 
PR I 01 = 000040 G 
PR I 02 = 000100 G 
PR I 03 = 000140 G 
PR I 04 = 000200 G 
PR 105 = 000240 G 
PRI06 = 000300 G 
PR I 07 = 000340 G 
PROPRT= 000010 
PROTCT 002472 
PRTBO 002526 G 
PRTBOS 002550 
PRTB1 002534 G 
PRTB1S 002570 
PRT82 002542 G 
PRTB2S 002612 
PRTB3S 002636 
PRTB4S 002664 
PRTCDE 007040 
PRTDID 020600 
PRTECD 015744 
PRTFRU 005404 
PRTGMS 007620 


PRTREG 007564 
PRTSEC 007674 
PRTSTA 015240 
PRTTRA 010002 
PRTX1S 002734 
PRTX2S 002756 
PRTX3S 003002 
PRTX4S 003030 
PTERTY 003474 
PTUTMS 020560 
PWDNRY 026175 
PWRMS 026122 
PWUPRY 026214 
RANDAT 012566 
RANGEN 010344 
RANUM 010436 
RANI 010432 
RAN2 010434 
RDERCD 011340 
RDERR = 000003 
RDSTAT 011266 
READ 011062 
READ1 011112 
RE C ADR 002364 
RECCMD= 000016 
RECERN 002462 
RECERR= 000021 
RECFLG= 000200 
RECTST= 000200 
REGACT 002440 
REGCK = 000001 
REGEXP 002436 
REGSCK 013664 
REGS1 = 015036 
REGS2 = 000000 
REGS3 = 000000 
REGS4 = 000000 
REGS5 * 000000 
REGS6 = 000000 
RESFLG= 040000 
RESTAR 021332 
RE VC = 000000 
RGERN6 020166 
RGERTB 014706 
RGETPT 014670 
RGPRT = 000004 
RSC = 000000 
RSCMD = 000006 
RTBADR 014704 
RTX = 000000 
RWELEC= 000004 
RXCS 002350 
RXCSR 002432 
RXDB 002352 
RXESR 002434 
RXINIT= 040000 
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RXPRI 002356 
RX2BI T= 004000 
SCPRT = 000002 
SDCMD = 000010 
SDKYWD= 000036 
SDRDYE= 000024 
SECAER= 000042 
SECDON= 002000 
SECTOR 002376 
SEKERR= 000006 
SETDCD 011462 
SETDN 011172 
SETSCD 011502 
SETUP 021362 
SFPTBL 002320 G 
SFTSTS 002450 
SIDE 002410 
SI DEI = 001000 
SIDFLG= 010000 
SIDPRT 002515 
SIDRDY= 000002 
SIDURG= 000026 
SSC = 000002 
STAFLG= 100000 
START 021252 
STARTO 021262 
START1 021322 
STATER 017222 
STCHD = 000012 
STDATP 012306 
STDNER= 000035 
STK = 000001 
STTK76 021174 
SUDVCD 021014 
SUM 012654 
SURGCK 014276 
SUTSFG 020772 
SVCGBL= 000000 
SVCINS= 177777 
SVCSUB= 177777 
SVCTAG s 177777 
SVCTST= 177777 
SUREG 002332 G 
SYFERR= 002000 
SYSERR 002456 
S$LSYM= 010000 
TCMDCT 002470 
TFDCK 013342 
TGMS 010220 

TKERCK 017516 
TKPRT = 000001 
TXSCFG 002510 
TN = 000044 
TRACK 002374 
TRAP 022324 

TRBIT = 000200 


<AER= 000041 
TRKCNT 013100 
TRKD0N= 001000 
TRKSEO 002330 G 
TSAVE1 002506 
TSDGMS 020306 
TSDGM1 020364 
TSEC 002447 
TSTDBG 020240 
TSTID 002466 
TSTMOD 002324 G 
TSTPAT 002326 G 
TTEMP1 002504 
TTRK 002446 
TYPERR 002460 
T$ARGC= 000002 
T$C0DE= 005130 
T$ERRN= 000074 
TSEXCP= 000000 
T$FLAG= 000040 
T$FREE= 037670 
T$GMAN= 000000 
T$HILI= 000003 
T$LAST= 000001 
T$LOLI= 000000 
T$LSYM= 010000 
T$LTNO= 000044 
T$NEST= 177777 
T$NSO = 000000 
TSNS1 = 000005 
T$PCNT= 000000 
TSPTA8= 010066 
T$PTHV= 000002 
T$PTNU= 000002 
T$SAVL= 177777 
T$SEGL= 177777 
T$SIZE= 000016 
T$SUBN= 000000 
T$TAGL= 177777 
TSTAGN= 010070 
T$TEMP= 000000 
TSTE ST = 000044 
T$TSTM= 177777 
T$TSTS= 000001 
T$$AU = 010014 
T$$AUT= 010013 
T$$CLE= 010C11 
Ti$DAT= 010067 
T$$DU = 010012 
T$$HAR= 010061 
TSSHU = 010000 
TSS I N I = 010010 
T$$MSG= 010006 
TSSPC = 000002 
T$$PRO= 010001 
T$tPTA= 010066 
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TtlRPT = 

010007 

T14FTB 

025474 


T24RTB 

030700 

T35FTB 

034164 

UAIT 

011610 

TtSSOF = 

010062 

T14MSG 

025264 


T24TBL 

030670 

T35MSG 

033754 

WATCH 

011662 

002443 

t«sw = 

010002 

T14RTB 

025472 


T25 

030710 G 

T35RTB 

034160 

UC 

TS$TES= 

010060 

T14TBL 

025462 


T25FT6 

031072 

T35TBL 

034150 

UCERR = 

000023 

TOFTB 

006660 

T15 

025502 

G 

T25MSG 

030712 

T36 

034172 G 

UCFRU 

005462 

TOFTO 

006640 

T15FTB 

025624 


T25RTB 

031064 

T36FTB 

034520 

WC0VFE= 

000051 

fOFTI 

006736 

T15MSG 

025504 


T25TBL 

031054 

T36MSG 

034174 

UCOVRF= 

002000 

T OF Til 

006763 

T15RTB 

025620 


T26 

031100 G 

T36RTB 

034514 

WOCNT 

002370 

TOFT12 

006770 

T15TBL 

025610 


T26FTB 

031272 

T36TBL 

034504 

UDDCMD= 

000014 

T0FT13 

006776 

T16 

025632 

G 

T26MSG 

031102 

T4 

022732 G 

UDFRU 

005466 

T0FT15 

007002 

T16FTB 

026116 


T26RTB 

031266 

T4MSG 

022734 

UEECK 

020040 

TOP T 1 6 

007006 

T16MSG 

025634 


T26TBL 

031256 

T4RTB 

023042 

WEFRU 

005516 

T0FT17 

007012 

T16RTB 

026112 


T27 

031300 G 

T4TBL 

023036 

WRITE 

010744 

T0FT2 

006742 

T16TBL 

026102 


T27FTB 

031462 

T5 

023050 G 

WRITE1 

011002 

T0FT20 

007016 

T 1 7 

026234 

G 

T27MSG 

031302 

T5MSG 

023052 

WRTERR= 

000002 

TOF T22 

007022 

T17FTB 

026422 


T27RTB 

031456 

T5RTB 

023160 

WSCMD = 

000004 

T0FT23 

007025 

T17MSG 

026236 


T27TBL 

031446 

T5TBL 

023154 

XADBIT 

002346 G 

T0FT24 

007030 

T17RTB 

026414 


T28 

031470 G 

T6 

023166 G 

XCDENC 

020470 

T OF T 25 

007035 

T17T8L 

026404 


T28FTB 

031656 

T6MSG 

023170 

XCEC 

011606 

T0FT4 

006746 

T18 

026430 

G 

T28MSG 

031472 

T6RTB 

023344 

XCRBIT 

014666 

T0FT40 

006644 

T18FTB 

026766 


T28RTB 

031652 

T6TBL 

023340 

XCSRCK 

014106 

T0FT41 

006646 

T18MSG 

026432 


T28TBL 

031642 

T7 

023352 G 

XDVRCK 

011660 

T0FT42 

006651 

T18RTB 

026762 


T29 

031664 G 

T7MSG 

023354 

XEMPBF 

010732 

T0FT43 

006654 

T18TBL 

026752 


T29FTB 

032072 

T7RTB 

023606 

XENTCK 

C20236 

TOFTS 

006751 

T19 

027104 

G 

T29MSG 

031666 

T7TBL 

023602 

XERN8E 

003470 

TOF T 7 

006755 

T19FTB 

027332 


T29RTB 

032066 

T8 

023614 G 

XERRCK 

020162 

TOMSG 

022172 

T19MSG 

027106 


T29TBL 

032056 

T8MSG 

023616 

XERROR 

003334 

TORT1 

015026 

T19RTB 

027326 


T3 

022616 G 

T8RTB 

023776 

XERUUT 

002442 

T0RT2 

015036 

T19RT1 

027306 


T3MSG 

022620 

T8TBL 

023772 

XER1 

016014 

T0RT3 

015046 

T19TBL 

027316 


T3RTB 

022724 

T9 

024004 G 

XER2 

015531 

T0RT4 

015056 

T2 

022456 

G 

T3TBL 

022720 

T9MSG 

024006 

XER3 

015627 

TORTS 

015066 

T2MSG 

022460 


T30 

032100 G 

T9RTB 

024214 

XESRCK 

014234 

T0RT6 

015076 

T2RTB 

022610 


T30FTB 

032372 

T9TBL 

024210 

XFRBF 

010614 

TT 

022332 G 

T2TBL 

022604 


T30MSG 

032102 

(JACOB 

013660 

XGSC 

013244 

T1MSG 

022334 

T20 

027340 

G 

T30RTB 

032366 

UADCK 

013500 

XGTECN 

015162 

T1RTB 

022450 

T20FTB 

027474 


T30TBL 

032356 

(JAM = 

000200 G 

XGTK 

013076 

T1TBL 

022444 

T20MSG 

027342 


T31 

032400 G 

UAUWCH 

011750 

XINIT 

021512 

T 1 0 

024222 G 

T20RTB 

027472 


T3FTB 

032744 

UBRCR 

013710 

XINT 

010460 

TIOMSG 

024224 

T20TBL 

027462 


T31MSG 

03240? 

UBT10 

024334 

XPCE 

007162 

TIORTB 

024356 

T21 

027502 

G 

T31RT8 

032740 

UBT21 

027670 

XPG 

012464 

TIOTBL 

024352 

T21FTB 

030120 


T31TBL 

032730 

U8T23 

030410 

XPTOIO 

020640 

TIT 

024364 G 

T21MSG 

027504 


T32 

032752 G 

UBT24 

030654 

XPTFRU 

005606 

T11FTB 

0246 14 

T21RTB 

030116 


T32FT8 

033350 

U8T27 

031432 

XPTSTA 

015436 

T11MSG 

024366 

T21TBL 

030106 


T32MSG 

032754 

U8T31 

032566 

XRDERC 

011454 

T11RTB 

024612 

T 22 

030126 

G 

T32RTB 

033346 

UBT32 

033324 

XRDSTA 

011336 

T11TBL 

024602 

T22FT8 

030240 


T32TBL 

033336 

U8T36 

034462 

XREAD 

011164 

T12 

024622 G 

T22MSG 

030130 


T33 

033356 G 

UBT7 

023570 

XREGCK 

014256 

T12FTB 

025024 

T22RTB 

030234 


T33FTB 

033550 

UCGSC 

013214 

XSCP 

007756 

T12MSG 

024624 

T22TBL 

030224 


T33MSG 

033360 

UCT32 

033240 

XSOC 

020540 

T12RTB 

025022 

T23 

030246 

G 

T33RTB 

033544 

UCT36 

034410 

XSETDN 

011254 

T12TBL 

025012 

T23FTB 

030442 


T33TBL 

033534 

UDUWCH 

011744 

XSRC 

014520 

TT 3 

025032 G 

T23MSG 

030250 


T34 

033556 G 

UNIT 

021526 

XTKECK 

017722 

T13FTB 

025254 

T23RTB 

030440 


T34FTB 

033744 

UNPKHP 

021572 

XTKPRT 

010154 

T13MSG 

025034 

T23TBL 

030430 


T34MSG 

033560 

UNTPRT 

002512 

XT1 

022440 

T13RTB 

025252 

T24 

030450 

G 

T34RTB 

033740 

UNI 

021314 

XT10 

024346 

T13TBL 

025242 

T24FTB 

030702 


T34TBL 

033730 

VARIFY 

002372 

XT11 

024576 

T14 

02526? G 

T24MSG 

030452 


T35 

033752 G 

VECT 

002354 

XT12 

025006 
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SYMBOL 

XT1 3 

TABLE 

025236 

XT20 

027456 

XT28 

031636 

X T 35 

034144 

XUWCH 012014 

X T 1 4 

025456 

XT21 

027774 

XT 29 

032052 

XT 36 

034500 

XWAIT 011632 

X T 1 5 

025604 

XT22 

030220 

X T 3 

022714 

XT4 

023032 

XWRITE 011054 

X T 1 6 

026076 

XT23 

030424 

X T 30 

032352 

X T 5 

023150 

XXPG 012540 

XT1 7 

026400 

XT 24 

030664 

X T 31 

032724 

XT6 

023334 

XSALWA= 000000 

XT18 

026746 

X T 25 

031050 

XT32 

033332 

XT7 

023576 

X$FALS= 000040 

XT19 

027302 

X T 26 

031252 

X T 33 

033530 

XT8 

023766 

XtOFFS= 000400 

XT2 

022600 

XT27 

031442 

XT 34 

033724 

XT9 

024204 

X$TRUE= 000020 

. ABS. 

037670 

000 








ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 31264 WORDS ( 123 PAGES) 

DYNAMIC MEMORY: 19748 WORDS ( 75 PAGES) 

ELAPSED TIME: 00:05:01 

CNRXFA.BIN/DS :GBL/EN : AMA:ABS,CNRXFA.LST/CR/-SP/NL : CND:MD :BEX=SVC34/HLB,CNRXFA.MAC 



